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EXECUTIVE  SUMMARY 


The  Study  of  Effectiveness  of  Amy  Continuing  Education  System 
(ACES)  was  undertaken  as  part  of  the  Arny  Research  Institute  for  the 
Behavioral  and  Social  Sciences'  efforts  to  meet  the  need  for  an  objective 
evaluation  of  ACES  program  participation  effects  on  soldier  perfortoance . 
Part  I  of  the  study  documented  a  iMthodology  for  conducting  a  cross- 
sectional  and  potential  longitudinal  research  study  designed  to  perform 
this  evaluation.  The  objective  of  Part  II  was  to  conduct  the  cross- 
sectional  study  designed  In  Part  I. 

Four  major  tasks  were  completed  In  Part  I  which  provided  back¬ 
ground  for  the  conduct  of  Part  II:  (1)  based  on  predetermined  selection 
criteria,  four  ACES  programs  were  chosen  for  evaluation:  Basic  Skills 
Education  Program  1,  Literacy  Phase  (BSEP  I-Llt) ,  Basic  Skills  Program  1, 
English  as  a  Second  Language  (BSEP  I-ESL) ,  Skill  Development  -  General 
Vocational -Technical  (Vo-Tech),  and  Veterans  Educational  Assistance  Program 
(VEAP) ;  (2)  potential  Independent,  dependent,  and  control  measurement 
variables  were  selected;  (3)  sources  for  obtaining  the  variable  data  were 
Identified,  Including  computerized  sources  and  four  installations  selected 
for  manual  collection  of  the  Vo-Tech  program  data:  Forts  Bliss,  Bragg, 

Ord  and  Polk;  and,  (4)  an  evaluation  design  was  Jeveloped  for  the  compara¬ 
tive  statistical  analysis. 

The  Part  II  proposed  methodology  included  three  stages,  The 
following  two  were  completed  at  the  conclusion  of  the  project:  (1)  the 
final  selection  of  measurement  variables  and  estimation  of  the  sample 
sizes  and  (2)  the  collection,  storage  and  management  of  data.  The  third 
proposed  stage,  the  comparative  statistical  analysis  of  the  results,  was 
not  completed.  The  efforts  required  In  accessing,  obtaining,  and  proces¬ 
sing  soldier  performance  data  from  Army  computerized  data  files  exhausted 
the  time  schedule  and  resources  available  for  the  project. 

The  final  variable  selections  were  based  on  a  preliminary  exam¬ 
ination  of  the  data  available  from  the  identified  sourf  3S  and  a  refinement 
of  the  evaluation  design.  In  addition,  two  efforts  were  eliminated  from 
the  planned  methodology:  the  VEAP  evaluation  and  Vo-Tech  data  collection 
from  Fort  Ord. 

The  collection,  storage  and  management  of  data  Is  documented 
according  to  the  two  data  collection  modes:  manual  and  computerized. 

The  manual  data  collection  effort  Involved  the  development,  pilot  testing, 
and  revision  of  forms  and  procedures;  site  visits;  and  tabulating  and 
processing  results.  Problems  encountered  with  education  or  personnel 
records  which  might  have  an  impact  on  soldier  record  accuracy  were  noted 
a.id  reported. 
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The  conputerlxed  date  collection  and  processing  Included  develop¬ 
ing  a  data  accession  plan,  describing  the  data  sought,  procedure  developnent, 
and  describing  procedures  for  performing  the  analysis.  The  data  accession 
plan  presented  strategies  for  defining  and  selecting  samples,  collecting 
data  for  the  four  ACES  programs,  and  obtaining  control  and  dependent  variables 
from  the  computerised  sources.  The  data  sought  war  based  on  the  defined  pro¬ 
gram  sample.  Bequests  tor  the  data  were  made  to  the  Training  and  Doctrine 
Command  (TRADOC) ,  Military  Personnel  Center  (MILPEBCEM) ,  Defense  Manpower 
Data  Center  (DMDC),  and  the  Vo-Tech  data  were  encoded  on  the  coeputer. 

The  procedures  developed  for  updating  and  creating  records  served 
three  distinct  purposes:  (1)  to  add  data  to  the  master  file,  (2)  to  obtain 
data  from  the  master  file,  and  (3)  the  manipulation  of  tapes.  The  procedures 
were  self-documenting  and  specifications  for  those  implemented  were  developed. 
Ten  files,  envisioned  during  the  design  phase,  and  the  basic  purposes  and 
procedures  for  these  files  are  described.  Several  procedures  for  performing 
the  analysis  were  implenmnced  which  simplified  gaining  access  to  the  data  and 
execution  of  an  SPSS  program  (Statistical  Package  for  the  Social  Sciences) , 
Including  procedures  to  create  or  extract  from  the  master  file.  A  sample 
SPSS  program  Is  presented  with  the  appropriate  set  of  program  variables 
appended.  Problems  encountered  In  the  development  and  Implementation  of 
these  procedures  were  noted. 

A  preliminary  analysis  was  performed  whlc^  demonstrated  that  the 
system  operated  as  planned,  but  the  quality  of  the  .ata  obtained  was  less 
than  expected.  The  sample  sizes  obtained  and  matching  blrthdate  and  sex 
variable  comparisons  among  the  various  data  sources  are  presented  and  dis¬ 
cussed,  Low  retrieval  rates  and  low  matching  rates  (53  to  76  percent)  on  the 
basic  variables  selected  for  quality  checks,  blrthdate  and  sex,  decreased 
confidence  In  the  quality  of  the  remaining  data.  Potential  causes  for  the 
discrepancies  and  suggested  actions  required  to  overcome  the  problems  are 
discussed. 

A  summary  of  problems  encountered  during  the  collection,  storage 
and  management  of  data  is  presented.  The  Vo-Tech  data  collection  problems 
encountered  Included  lack  of  standardization  in  data  records,  mi.'slng  follow¬ 
up  course  data,  and  low  Incidence  of  recorded  data  on  participation  in  ACES 
programs  in  general,  which  affects  obtaining  satisfactory  sample  sizes  for 
groups  of  soldier  participants. 

The  problems  encountered  in  the  computerized  data  collection 
efforts  included  the  use  of  the  not  up-to-date  Exec  d  operating  system, 
arbitrary  file  limitations  placed  on  the  users,  lack  of  direct  access  to 
personnel  with  expertise  in  using  this  system,  the  time  expended  in  going 
through  the  "hierarchy"  to  execute  requests  or  obtain  answers  to  questions, 
and  problems  in  slgning-on  due  to  overworked  phone  trunk  lines.  Suggested 
causes  and  a  discussion  of  possible  resolutions  for  overcoming  these  problems 
are  discussed.  These  considerations  present  implications  for  any  subsequent 
linking  of  ACES  data  and  soldier  performance  data  in  an  evaluation  of  ACES 
program  impact. 
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INTRODUCTION 


The  Army  Continuing  Education  System  (ACES)  provides  programs 
designed  to  enhance  the  educational  development  of  active  duty  personnel 
as  well  as  increase  military  Job  progression  and  skill  proficiency.  The 
Education  Directorate,  Adjutant  General's  Center,  as  the  administering 
agency  of  ACES,  has  expressed  a  need  for  an  objective  evaluation  of  the 
relationship  between  participation  In  ACES  and  effects  on  soldier  perfor¬ 
mance. 


Factors  contributing  to  the  need  for  this  evaluation  include: 

(1)  the  General  Educational  Develcpment  (GED)  program  charter  In  1956, 
which  Included  education  for  Increased  military  efficiency,  (2)  ACES' 
focus  on  personal  development  of  individual  service  members,  and  (3) 
the  increasing  importance  of  the  impact  of  ACES  on  Array  career  develop¬ 
ment  and  Army  job  progression. 

In  Part  I  of  this  project,  Battelle  designed  a  methodology  for 
an  empirical  cross-sectional  and  potential  longitudinal  study  to  determine 
whether  or  not  there  is  evidence  that  ACES  has  a  statistically  significant 
positive  impact  on  duty  performance  of  soldiers.  The  objective  of  Part  II 
was  to  conduct  the  cross-sectional  study  designed  in  Part  I.  Figure  1  is 
a  Draft  Final  Report  Outline,  developed  during  the  last  reporting  period 
of  the  project,  which  describes  the  major  steps  anticipated  to  obtain  and 
process  the  data,  conduct  the  statistical  analysis,  and  prepare  a  research 
report  of  the  results.  This  report  documents  the  implementation  of  the 


study  Asthodology  through  ths  suiMry  of  problsM  tncountsrsd  during  ths 
collsctlcn,  storsgSt  snd  Mnagsasnt  of  dots.  Ths  coapsrstlvo  statisclesl 
analysis,  and  subssqusnt  rssults,  conclusions  and  rscoanandatlons  bassd  on 
ths  analysis  wars  not  conplatsd  ^causa  of  tha  problasM  ancountared  In 
accaaslng,  obtaining,  and  procaaslng  soldlar  parfomanca  data  from  tha 
computarlacd  data  fllas  at  tha  Dafansa  Manpo%iar  Data  Cantar  (D)OG)  and 
tha  Military  i^arsonnal  Gentar  (MILPBRCEM).  Savaral  axtanslons  of  tha 
contcact  parformanca  pariod  wars  raquirad  bacausa  of  thasa  data  accaaslon 
and  procaaslng  probluaa.  Both  tha  Battalla-^Coluicbus  staff  and  tha  Army 
Rasaarch  Instltuta  rapraaantatlvas  axtendad  thalr  bast  af forts  to  ovar* 
cons  thasa  problams.  Howavar,  projact  tlma  schadulas  and  rasourcaa  vara 
aidtauatad  In  this  affort.  Moraovar,  tha  quality  of  tha  data  accaawad 
through  thasa  afforts  pracludad  tha  parformanca  nf  tha  plannad  cos^aratlva 
statistical  analysis. 
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Part  I  of  this  study  involvod  coap lotion  of  four  sajor  actlvttlaa: 
(1)  davalopMnt  of  crltarla  for  and  aalactlon  of  tha  ACES  prograna  for 
avaluatlon,  (2)  aalactlon  of  naaauraaant  varlablaa  for  ACES  participant 
varaua  nonparticipant  cowpariaona,  (3)  idantiflcation  of  aourcaa  for 
naadad  data,  and  (4)  craation  of  an  avaluation  daalgn  for  tha  Part  II 
croaa-aactional  analyaia  and  tha  potantlal  longitudinal  analyait.  Tha 
rasulta  of  Part  1  ara  fully  docunantad  in  tha  Part  1  Tachnical  Eaport, 
datad  January  25,  I9S0  and  ravisad  March  5,  1980.  A  aunaary  of  thata 
raaulta  ia  praaantad  balow. 


ACES  Proaraaa  Salactad 


Elavan  ACES  prograna  wara  conaidarad  for  potantlal  avaluation. 
Program  daacrlptiona,  data  avail^^bla,  and  potantlal  problama  with  tha 
avaluation  wara  docunantad.  Criteria  for  program  aalactlon  ware  chan 
davalopad  and  praaantad  in  a  rating  acala  format.  Rating  acalaa  wara 
conplatad  by  ARI,  TAGCEH,  and  Battalia  staff  raprasantativas  and  than 
conblnad  into  a  consanaual  rating,  shown  In  Flgura  2.  Using  the  rating 
acala  raaulta  and  pravlously  Idantifiad  program  avaluation  problana,  tha 
following  four  ACES  programs  wara  salactad. 

a  Baste  Shills  Education  Program  I  •  Litaracy  Phasa 
(BSEP  1  -  LIT) 

a  Baste  Shills  Education  Program  I  •  English  as  a 
Second  Language  (BSEP  1  -  SSL) 

a  Shill  Davalopmant  ~  Ganaral  Vocational  Technical 
Program  (Vo-Tech) 

a  Veteran's  Educational  Assistance  Program  (VEAP) 

Five  technologies  within  the  Vo-Tech  program  area  were  selected 
for  study:  Automotive,  Diesel,  Welding,  Electronics,  and  Construction. 
These  particular  Vo-Tech  courses  provide  soldiers  opportunities  in  MOS 
related  skills  as  well  as  marketable  civilian  skills. 

A  decision  was  made  during  Part  II  not  to  analyze  the  VEAP 
program  since  these  data  are  analyzed  annually  In  an  ongoing  Department 
of  Defense-wide  study. 


I.  stale  Sklllt  Education 
ProgrtB  1 


2.  Baalc  Skills  Eductclon 
Program  II 


3.  High  School  Coaplaelon 
Program 


it.  Afao.:laclon  Oagrat 
Program  (SOCAD) 


S.  Bachelor  s  Degree  &  Higher 
Degree  Programs  (SOC) 


6.  Army  Apprentlceahlp  Program 


7.  Skill  Development  Program 
a.  HOS  Refresher  Program 


b.  Vo-Tech  Program 


8.  HEADSTART/ GATEWAY 


9.  English  at  »  Second  Language 


10.  Veterans'  Educatlunal 
Assistants  Program 
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Measurement  Variables  Identified 


Tables  1  through  3  present  the  potential  measurement  variables 
identified  and  documented  in  Part  I  of  the  study.  The  Independent  variables 
listed  in  Table  1  are  program-specific  factors  such  as  participation/ 
eligibility,  completion  status,  length  of  instruction,  pre-  and  post¬ 
test  scores.  The  dependent  variables  presented  in  Table  2  are  indicators 
of  soldier  value  to  the  Army  through  measures  such  as  performance  on  the 
job,  career  progression,  and  attitude.  The  selected  control  variables 
presented  in  Table  3  are  used  to  compare  the  experimental  groups  on  basic 
demographic,  background,  and  aptitude  characteristics.  These  potential 
measurement  variables  were  further  refined  and  selections  were  made  in 
Part  II  based  on  such  criteria  as  accessibility  and  accuracy  of  records. 


Primary  Data  Sources 


Also  listed  in  Tables  1  through  3  are  the  potential  sources 
identified  for  the  variable  data.  The  primary  sources  to  be  used  from 
these  lists  are: 

•  TRADOC  -  Training  and  Doctrine  Command,  Fort  Monroe,  VA 

•  DMDC  -  Defense  Manpower  Data  Center,  Washington,  DC 

•  MILPERCEN  -  Military  Personnel  Center,  Alexandria,  VA 

•  TSC  -  Training  Support  Center,  Fort  Eustis,  VA 

•  EREC  -  Enlisted  Records  Evaluation  Center,  Fort  Benjamin, 
Harrison,  IN 

•  MPRJ  -  Military  Personnel  Records  Jacket  (DA  Form  201),  Military 
Personnel  Offices  (MILPOS)  at  selected  Army  posts 

•  Education  Development  Record  (DA  Form  669),  Education  Offices 
at  selected  Army  posts. 

Most  of  the  measurement  varia^'les  were  available  through  computerised 
data  sources  with  the  exception  of  the  Vo-Tech  program.  This  infonaation 
was  only  available  in  individual  soldier  education  and  personnel  records 
and  therefore  had  to  be  accessed  manually. 


TABLE  1.  POTENTIAL  INDEPENDENT  VARIABLES 


Virlablti 


TT 

7oi 


Data  Sourcaa 

- EX - 


Ten 


,(2) 


TOT 

rota 


tacorda 
Kapt  At 
rott  td 


Caatar^*5 


TAOcn^s)  DHMii)  Humcnll^)  riia<*) 


?a<tlclpatt(m/tlltlbtl1.tp 
a  Suecaaaful  Coaplatioa 
a  Uaauecaaaful  Coaplattoa 
a  Ineoaplata  Vartletpatlon 


a  Mo  ractlelpatlon  Z 
Froiraa  Variablaa 

a  Dapa  Enrollad  X 
a  farlod  of  larollaaot  X 
a  Fra/Foat  Seoraa  X 
a  Frlaarp  Lanfuata  X 


ISIF  II 

Fartleipatlen/Ulilbllltp 
a  Suecaaaful  Coaplatloo 
a  Uaauceaaatul  Coaplatloo 
a  locoaplata  Farcielpatloo 
a  Mo  Fartlelpatlon 
Froftaa  Varlablaa 
a  Mouia  of  InatTuetioa 
a  Fatlod  of  larollaaot 
a  Fra/Foat  Seoraa 
a  CED  Attaapt 

HSCF 

Fartlelpatleo/Ellilbllltp 
a  Suecaaaful  Coaplatloo 
0  Uoauceaaaful  Coaplatloo 
a  locoaplata  Farticlpatioo 
a  Partlclpatloo-CED  Coop, 
a  ISEF  11  Farticlpatioo 
a  Mo  Farticlpatioo 
Frofroa  Varlablaa 
a  Hlfhaat  Taar  of  Edueatloo 
a  Mo.  of  Uolta  Acqulrad  Bp  Sublaet 


X 

X 

X 

X 


X 

X 

X 

X 


X 


SOC/SOCAD 


Fartlelpatloo/Ellflbllltp 

a  Suecaaaful  Coaplatloo  AA  X 
a  Suecaaaful  Coaplatloo  BA  X 
a  SucGaaaful  Coaplatloo  Othar  X 
a  Noo  Fartlelpaot  but  Ell(lbltt  BSD  or  GED  X 
Froiraa  Varlablaa 


a  Laosth  of  Tloa  Slnca  Elltlbla* 
a  Fraaantlp  Fartlelpatlog  Mo.  of  loaldontlal* 

Cradlta 

a  Farlod  of  Eorollaaot  X 

a  tiaa  Sloca  laat  Eorollaaot  X 


X 

X 

X 

X 


*to  ba  eo^utad  froa  othar  data 

(1)  PSEF  1  data  fora  kapt  at  TBAtXK 

(2)  BSEFll  fora  kapt  at  TBASANA 

(3)  A  fora  which  llata  a  aoldlar'a  clvlllao/allltarp  aducatlon  and  tralolni,  kapt  at  tha  aotdlar'a  raaldaot  Edueatloo 
Canter 

(1)  Pout  edueatloo  eaotar  racorda 

(5)  Tha  Adjutant  Conaral'a  Cantor 

(6)  Datanaa  Manpower  Data  Cantor 

(7)  Mllltatp  Paraennal  Cantor 

(S)  DA  201  Plla  loeatad  at  raaldant  peat  -  Maatar  Paraonnal  Xacorda  File 


TABLE  1.  (Continued) 


D«t«  ttiure««  taeord* 

M  MM  Xapr  At 

ton  Ten  Ton  Feet  U  201 

Tnlablti  lt21-2>t  U21-1-II  6A9  Center  TAecn  BHDC  MXLTnCIR  Tile 


AIHT  ATTMgtTtCMBIT 


TertietTAtloti/UlllbllttT  Ip  MS 

e  Sueccceful  CeapletleQ  S 

e  FreMatlT  FertlelpeHai  1 

e  Mo  Loniat  TartietTetlos  2 

e  Mon  Tartleipenti 

Troiraa  Verleblee 

0  Length  of  Tit:*.  Since  Avarded  MS  X 

*  Hourt  Loss*d  Training 

a  Mourn  Loggn/.  On  The  Job 

a  Farin'!  of  tnroilaant  S 


SKIU  DiVILOfIgHT-gSKtItAL  VOCATIOHAL  TICMMICAL 

Fartielpatlon/Illglblllty 
a  Dagraae  or  Certlfleatee  Avardad 
Frograa  Varlablaa 

a  Length  ot  Tlaa  Since  Acgulrad  MS  (AIT 
Graduation  Data) 

a  Balavanca  of  Couraa  to  Dutp  MS 
a  Fcrli'd  of  InrellMnt 


SMiu  Bimorwnft-MS  MFUSHp/oimomaiT 

t'artleipatlon/tliglbllltF 
a  Succcaaful  Cooplatioa 
a  Non  Succaaoful  Coaplatlon 
a  Non  Farclelpaatt 
Frograa  Varlablaa 

a  Length  of  Tlaa  Since  Acquired  MS  (AIT 
Graduation  Data) 

a  Aaouot  of  Tlaa  la  MS  lafora  MS 

Kafraohar 

a  Aaeunt  of  Tlaa  Slnea  MS  Mafraabar 
a  Heura  of  Inatructlon 

MEADSTAMT/CATIMAT 

Fartlclpatlon/lllglblllty 
a  Completed  Frograa 
a  Ittcoaplata  Fartlelpatlon 
Frograa  Varlablaa 

SSL  (OMIT  IT  TMt  MirtSMAL) 


Fartlelpatloo/Cllglbl llty 

a  lllglblllty  Under  70  sai  Z 

Frograa  Varlablaa 

a  Tlaa  Snreilad  Z 

a  Farlod  of  Entollaant  Z 

a  Fra/Foat  ICLT  Z 


VEAF 

Fattlclpatlon/Ellglblllty 
a  Contributing  (Entered  After  t2/)l/7d< 
a  Non  Contributing  (Entered  After  11/31/7S) 
Frograa  Varlablaa 
a  length  of  Tlaa  Contributing 
u  laenllataant 


Z 

* 

z 

z 


z 

z 


z 

z 

z 

z 


z 

z 


z 

z 

z 


z 

z 

z 

z 
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TABLE  2.  POTENTIAL  DEPENDENT  VARIABLES  AND  RELATED  IDENTIFIERS 


VnltbXai 


JOB  5KILL  AMD  PWWLPCE  mOFIClIIICY 


tat*  ieureas 

m/sm^  201^*' 


•  SQT  -  rarteraaoe*  CtrtKleatloo  Coaponant 
a  SQT  •  Utlctan  Coaponaat 
a  -  Haa4a*en  Coaponanc 

a  S<JT  -  Ovatall  (t  at  “CO”  unlta)  X 

a  SQT  -  fora  Miabar  ... 

a  Seapa  at  Knaulad|a  About  Dutlat'.i. 
a  Daaanatratad  Ovarall  Partananca'  ^ 
u  tlX  -  Total  Seora 

a  XEX  -  Ualphtad  Avarapa  X 

a  PMOS  -  la  Uhleh  Taatad  (SQT)  X 

a  PMOS  •  Evaluatlea  Seora  X 

a  PMOS  •  Evaluation  Seora  Oata  X 

a  PkOS  •  In  ‘Jhleh  Taatad  X 

a  PMOS  .  Skill  UvkI  .  SQ  Idantltlar  X 

PEOMOTlOB/APVAtICBmiT 

a  Advaneaaant  Potaatl'l^*^ 
a  Caraa'  Prairaaalan  (Banka  and  Dataa) 
a  Proaotlan  Petantlal  Seam  (1000  Pt.  Batins) 

BEEKLISTMEBT 

a  laanllatnant  tllilbllity  X 

a  Munbar  at  Tlaaa  Enllatad/Baanllatad  X 

PlSCIPllllE 

a  Paraanal  Cor  I't  'S) 
a  Ability  ta  bc>..  In  Haraony^l) 

a  Charaetar  of  Saparatlon  (Olacbarfa  fron  aarvlea)  x 

a  AWOl  X 

a  Typa  of  Uat  Batum  to  Military  Control  X 


X  . 

X 

X 

X  X 

X 

X  X 

X  X 

XX  X 

XX  X 

X  X 


X 


X  X 
X 

X 

X 


(1)  Military  Poraonnal  Cantar 
(2 1  Datanaa  Manpouar  Data  Cantar 

(3)  Enllatad  Evaluation  laport /Sanlor  Enllatad  Evaluation  Baport,  bath  loeatad  In  201  Plla 

(A)  DA  201  Plla  loeatad  at  raaldant  baaa  •  Maator  Paraennal  Baeorda  Plla  eentalnlnl  all  paraonnal  raeorda  for  a  aoldlar 
(3)  Enllatad  Baeorda  Evaluation  Cantar  at  Pt.  lanjanln  Rarrlaon,  Indiana  (Offlelal  Maatar  Paraonnal  Plla  plua  aona 
eonputarlaad  $()T/EEB  data) 

(6)  Proantlon  Point  Uorkabaat  loeatad  In  201  Plla 

(7)  Tralnlnt  Support  Cantar  loeatad  at  Pt.  Euatla.  VA. 

(S)  Tbaaa  aeoraa  ara  atlll  undat  eonaldaratlen  and  am  found  on  thn  lEB  and/or  SEXB.  Tbay  am  tha  aubaeoraa  fron  uhleh  tha 
total  EEB  aeora  la  baaad. 


TABLE  2.  (Continued) 


Data  Sourcaa 

Varlablat 

KIUtXCXM 

SHDC  xix/sm 

101 

lUC 

Tns 

TEC 

wormTioH 

•  Effort  dlroctod  levard  roolttitlQn 

of  potontlol^*) 

•  Airoiilvo  purtuic  of  aathedo  to  laptevo^*) 

•  Amtdt  And  Docorationt 

ATTlTUDt 

a  Attltuda  Toward  Dutlaa^*^ 
a  OapandahllltyO) 

LIAPtESHIE 

a  laarci  Eoaltlva  lafluaaea  oo  Othaii^*^ 

MILITAET  BIAEINC 

a  HlUtary  Uarlai^*’ 
a  rhyileally  rtt^') 

TKAIMUG  MCTIVro 


XX  X 

X  X 

XXX 


XX  X 

X  X 


XX  X 


XX  X 

XX  X 


a  ECO  Education  Syataa 
a  nWS  -  How  Acquired 
a  AIT  Graduation  Data 
a  Hllltary  Education 


X 

X 

X 


11 


TABLE  3.  SELECTED  CONTROL  VARIABLES  AND  IDENTIFIERS 


Personal  Characteristics 

•  Age 

a  Race  and  Ethnic  Group 
e  Sex 

e  Marital  Status 

•  Number  Years  of  Education 
e  Native  Language 

Job-Related 
e  Duty  MOS 

e  Career  Management  Field 
e  Nuiaber  Years  of  Service 
e  Time  Since  AIT  Completion 

•  Grade  Level 

Test  Scores 
e  AFQT  Score 

•  GT  Score  (General  Technical  Aptitude) 

e  Mental  Category  (General  Mental  Ability) 

e  Specif!:  Aptitude  Test  Scores  from  ASVAB 
(as  and  if  appropriate) 


e  SelectABLE  Scores 
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Posts  Sslectsd  for  Vo-Tsch  Data 


Four  CONUS  Installations  were  selected  for  manual  collection 
of  Vo-Tech  data  from  soldier  education  and  personnel  records.  The 
selection  of  the  installations  was  based  on  the  sire  of  the  military 
population  (the  largest  posts  were  preferred),  the  number  of  Vo-Tech 
courses  provided  on-post  (the  larger  number  was  preferred),  type  of 
command  (both  Forces  Command  (FORSCOM)  and  Training  Doctrine  Comnand 
(TRADOC)  to  be  represented),  and  ease  of  data  collection.  Based  on 
this  criteria,  the  following  four  posts  were  selected  in  addition  to 
Fort  Knox,  Kentucky,  the  site  selected  to  pilot-test  data  collection 
procedures  and  forma. 

e  Fort  Bragg,  North  Carolina 
e  Fort  Bliss,  Texas 
e  Fort  Polk,  Louisiana 
e  Fort  Ord,  California 

Fort  Ord  was  subseo.uently  dropped  as  a  data  collection  site. 

It  was  determined  by  the  Battelle  project  team  and  ARI  representatives 
that  data  collection  from  Forts  Polk,  Bragg,  and  Bliss  would  reflect  an 
adequate  mix  of  the  FORSCOM  and  the  TRADOC  activities  and  the  elimination 
of  this  site  visit  would  conserve  resources. 


Evaluation  Design 


The  basic  study  design  called  for  comparisons  of  participant  and 
nonparticipant  groups  for  each  of  the  four  selected  ACES  programs,  v»ith 
respect  to  criteria  reflecting  a  soldier':  value  to  the  Army.  This 
design  was  intended  to  yield  the  "impact"  each  program  has  on  soldiers' 
value  to  the  Army.  Two  methods  of  analysis  were  anticipated:  regression 
analysis  and  matched  group  comparisons.  For  the  evaluation  of  a  given 
ACES  program,  the  data  would  be  analyzed  using  both  regression  analysis 
and  a  matching  design.  If  the  results  of  the  two  analyses  disagreed,  then 
the  rearon  for  disagreement  would  be  sought.  If  the  results  of  the  two 
analyses  agreed,  then  a  stronger  conclusion  could  be  drawn  about  the  program. 
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METHODOLOGY 


The  proposed  methodoloic'  Involved  tliree  najor  tasks:  (1)  the 
final  selection  of  tneasurenenf  ’uriables  and  estimation  of  the  sample  sizes, 
(2)  the  collection,  storage,  a;  ^nagement  of  d‘«ca,  and  (3)  a  statistical 
analysis  of  the  results.  Tasfcs  and  2  were  completed  at  the  conclusion 
of  the  project  and  are  discussed  below.  Task  3,  the  statistical  analysis 
of  results,  was  not  conducted  for  reasons  stated  previously  in  the 
INTRODUCTION  section  of  this  report. 


Final  Selection  of  Measurement  Varirblcs 
And  Estimated  Sample  Sizes 


Tables  4  through  ti  present  the  final  variable  selections  based 
on  a  refinement  of  the  evaluation  design  and  preliminary  examination  of  the 
data  available  from  the  identified  sources.  Table  7  lists  the  approximate 
sample  sizes  needed  for  the  evaluation  of  each  program.  As  reported  in 
the  Computerized  Data  Collection  and  Processing  section  of  this  report, 
additional  refinement  was  made  to  the  variable  selections  due  to  problems 
encountered  after  the  sources  were  accessed.  The  Vo-Tech  sample  size  was 
also  redefined  as  the  result  of  the  elimination  of  the  Fort  Ord  data- 
collection  site. 


Collection.  Storage,  and  Management  of  Data 


This  section  is  presented  according  to  the  two  data  collection 
modes;  manual  and  computerized.  The  V >-Tech  manual  data  collection  efforts 
describe  the  development  of  data  collection  procedures  and  forms,  pilot 
test  of  forms  and  procedures,  data  collection  site  visits  and  results, 
and  problems  encountered.  The  computerized  data  collection  and  processing 
documents  the  data  accession  plan,  the  data  sought,  procedure  development, 
general  comments  on  data  processing,  procedures  to  perform  analysis,  and 
preliminary  analysis.  The  remainder  of  this  section  lists  the  problems 
encountered  during  the  data  collection,  storage  and  management  phase  of  the 
project. 


Vo-Tech  Program  Data  Collection 


During  the  first  stages  of  this  task,  arrangements  were  made 
to  visit  the  selected  posts,  including  setting  dates  for  visits,  obtaining 
names  of  individuals  coordinating  the  on-site  visits,  and  preparation  of 
documentacion  for  official  permission  to  access  files.  The  Vo-Tech  program 
data  were  then  collected  manually  from  individual  soldier's  education  and 
personnel  records.  Described  below  ara  the  development  of  procedures  and 
forms,  pilot  test,  data  collection  site  visits  and  results,  and  problems 
encountered. 
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TABLE  4.  BASIC  SKILLS  EDUCATION  PROCRAM 
(BSEP  I  >  LITERACY  PHASE)  - 
VARIABLES  AKD  SOURCES 

Primary 

Alternate. 

Control  Variables 

Source 

Source(s)* 

SSN 

TRADOC 

AGE 

DMDC 

MILPERCEN 

SEX 

TRADOC 

DFIDC /MILPERCEN 

RACE 

TRADOC 

DMDC /MILPERCEN 

ETHNIC  GROUP 

DMDC 

MILPERCEN 

NUMBER  YEARS  OF  EDUCATION 

TRADOC 

DMDC /MILPERCEN 

NUMBER  MONTHS  OF  SERVICE 

MILPERCEN 

AFQT  SCORES 

DMDC 

MILPERCEN 

GT  SCORES 

MILPERCEN 

MENTAL  CATEGORY 

TRADOC 

SelectABLE  SCORE 

TRADOC 

Dependent  Variables 

C.\REER  PROGRESSION 

-GRADE  LEVEL  ATTAINED 

MILPERCEN 

TSC 

-TIME  TO  GRADE  E2 

MILPERCEN 

-TIME  TO  GRADE  E3 

TRAINING  SUCCESS 

MILPERCEN 

SUCCESSFIL  COMPLEi’IO?!  OF  AIT 

vs  NOV  TRADOC  MILPERCEN 


DILCHARGED  FROM  SERVICE  (because  of 
poor  training  performance)  vs 

NOT  TRADOC  MILPERCEN 


*  For  sel«.ctci  cases,  data  was  obtained  from  both  primary  and  alternate 
sources  as  a  crcar-  check  for  accuracy. 
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TABLE  5.  BASIC  SKILLS  .IDUCATXOH  PROGRAM 
(BSEP  1  -  BSL  PHASE)  - 
VARIABLES  AMO  SOURCES 


- - KTsIVrr"" 

!|[iternate 

Control  Variables 

Source 

Source(s)* 

SSM 

TRAOOC 

AGE 

DHDC 

MILPERCEN 

SEX 

TRAOOC 

OMDC /MILPERCEN 

RACE 

TRAOOC 

DMOC /MILPERCEN 

ETHNIC  GROLT 

OMDC 

MILPERCEN 

NUMBER  YEARS  OF  EDUCATION 

TRAOOC 

OMDC /MILPERCEN 

NUMBER  MONTHS  OF  SERVICE 

MILPERCEN 

AFQT  SCORES 

OMDC 

MILPERCEN 

GT  SCORES 

MILPERCEN 

MENTAL  CATEGORY 

TRAOOC 

ECLT  SCORE 

TRAOOC 

NATIVE  LANGUAGE 

TRAOOC 

Dependent  Variables 

CAREER  PROGRESSION 

-GRADE  LEVEL  ATTAINED 

MILPERCEN 

TSC 

-TIME  TO  GRADE  E2 

MILPERCEN 

-TIME  TO  GRADE  E3 

MILPERCEN 

TRAINING  SUCCESS 

-SUCCESSFUL  COMPLETION  OF  AIT 
vs  NOT 

TRADOC 

MILPERCEN 

DISCHARGED  FROM  SERVICE  (because  of 
poor  training  performance)  vs 

NOT 

TRADOC 

MILPERCEN 

*For  selected  cases,  data,  was  obtained  from  both  primary  and  alternate 
sources  as  a  cross  check  for  accuracy. 
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TABLE  6.  SKILL  OEVELOPKEHT  •  GENERAL  VOCATIONAL 
TECHNICAL  PROGRAM  (VO-TSCH)  • 

VARIABLES  AND  SOURCES 


Primary 

Alternate 

Control  Variablea 

Source* 

Source(8)** 

SSN 

MPRJ  Form  201 

DMDC/MILPERCEN 

AGE 

MPRJ  Form  201 

DMDC/MILPERCEN 

SEX 

MPRJ  Form  201 

DMDC/MILPERCEN 

RACE 

MPRJ  Form  2^^! 

DMDC/MILPERCEN 

ETHNIC  GROUP 

MILPERCSN 

NUMBER  OF  YEARS  OF  EDUCATION 

MPRJ  Form  201 

DMDC/MILPERCEN 

NUMBER  MONTHS  OF  SERVICE 

MPRJ  Form  201 

DMDC/MILPERCEN 

NATIVE  LANGUAGE 

MPRJ  Form  201 

TRADOC 

CAREER  MANAGEMENT  FIELD 

MPRJ  Form  201 

MILPERCEN 

ACCESSION  DATE 

MPRJ  Form  201 

MILPERCSN 

VO-TECH  COURSE  TITLES /HOURS 

DA  Form  669 

VO-TECH  COURSE  COMPLETIONS 

DA  Form  669 

BASIC  PAY  ENTRY  DATE  (BPED) 

DA  Form  669 

MILPERCEN 

ESTIMATED  TIME  OF  SEPARATION(ETS) 

DA  Form  669 

MILPERCEN 

One  of  the  followinK*. 

AFQT  SCORES 

MPRJ  Form  201 

MILPERCEN 

GT  SCORES 

MPRJ  Form  201 

MILPERCEN 

MENTAL  CATEGORY 

MPRJ  Form  201 

TRADOC 

Dependent  Variables 

CAREER  PROGRESSION 

-GRADE  LEVEL  ATTAINED 

MPRJ 

Form 

201 

MILPERCEN 

-TIME  TO  GRADE  E5 

MPRJ 

Form 

201 

MILPERCEN 

-TIME  TO  GRADE  E6 

MPRJ 

Form 

201 

MILPERCEN 

MOST  RECENT  EER  (selected  parts) 

MPRJ 

Form 

201 

EREC 

MOST  RECENT  SQT  (selected  parts) 

MOST  RECENT  PROMOTION  POINTS 
(selected  parts) 

NUMBER  OF  DISCIPLINARY  ACTIONS 

MPRJ 

MPRJ 

MPRJ 

Form 

Form 

Form 

201 

201 

201 

MILPERCEN/TSC 

RE-ENLISTMFNTS 

MPRJ 

Form 

201 

MILPERCEN 

*  Data  was  collacted  from  DA  Form  669  and  MPRJ  Form  201  when  not  comput¬ 
erized.  Form  669  is  computerized  at  Fort  Polk  and  the  Standard  Instal¬ 
lation/Division  Personnel  System  (SIDPERS)  maintain  some  cooputerized 
data  and  this  war.  utilized. 

**  For  selected  cases,  data  was  obtained  from  both  primary  and  alternate 
sources  as  a  cross  check  for  accuracy. 
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TABLE  7.  APPEOXIMATB  SAMPLE  SIZE  NEEDED  OR  AVAILABLE 
FOR  EACH  PROGRAM  EVALUATION  AND  DATA  SOURCES* 


Program 

Sources 

Approxlstate 

Number 

BSEP  I  -  Literacy  Phase 

TRADOC 

MILPERCEN 

DMDC 

14,000 

(Includes  participants 
and  eliflble  nonpar¬ 
ticipants  from  10/1/78) 

BSEP  I  -  ESL  Phase 

TRADOC 

MILPERCEN 

DMDC 

3»400 

(includes  participants 
and  eligible  nonpar¬ 
ticipants  from  10/1/78) 

SKILL  DEVELOPMENT 
(VO-TECH) 

MILPERCEN 

TRADOC 

TSC 

IMDC 

MPRJ  FORM  201 
DA  FORM  669 

1,000 

(includes  500  partici¬ 
pants  and  500  nonparti¬ 
cipants  -  200-300  from 
each  post,  depending  on 
post  site) 

VEAP 

VA 

MILPERCEN 

TRADOC 

DMDC 

7,000 

(includes  all  new 
accessions  during  April 
1977  -  approximately 

1400  participants  and 
5600  nonparticipants) 

TOTAL 

25.000 

*For  the  total  number  of 

soldiers  in  the 

sanple.  Social 

Security  Numbers 

and  Date  of  Birth  from  each  source  are  required  as  Identification  variables. 
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D*v1od— nt  of  Daf  Coll»t:tlciv  Proctduf  and  Fora*.  Th«  nvnb«r 
of  •nllsttd  pcrtoniMl  at  aach  alta  for  which  data  wart  to  ba  collactad 
waa  dataralTMd  by  dlvldint  tha  nuabar  of  anilatad  paraonnal  atatlonad  at 
a  tlvan  poat  by  tha  total  nuabar  of  anllatad  paraonnal  at  all  salactad 
poata,  than  aultlplylng  tha  obtalnad  daclaal  fraction  by  1,000  (tha  original 
saapla  alta  for  tha  Vo-’tech  program),  Thla  operation  provided  an  aqual 
nuabar  of  participants  and  nonpartlclpanta  from  the  anllatad  paraonnal  at 
a  given  poat.  Data  vara  than  collactad  In  t%io  atagaa. 


Tha  flrat  stage  Involved  collection  of  data  from  the  OA  Form  669 
tacorda,  k  syatamatlc  aaa^ling  vita  a  random  atart  procedure  waa  aaed  to 
aalact  tha  sample.  Sample  selection  and  collection  of  data  from  tha  DA 
Form  669  records  Involved  the  following  six  steps: 


Step  1,  Datamina  the  physical  length  of  DA  669  Forma  stored 
at  a  given  post  by  multiplying  the  nuabar  of  drawers 
by  the  length  of  each  full  drawer  containing  records. 


Step  2.  Determine  the  interval  length  to  be  used  to  select 
the  sample  by  dividing  the  physical  length  of  forms 
as  determined  In  Step  1  by  tha  desired  nunber  of 
program  participants. 

Step  3.  Determine  the  random  starting  point  by  counting  the 
number  of  forms  in  the  first  interval  and,  using  a 
table  of  random  numbers,  select  a  starting  point 
which  was  less  than  ov  equal  to  the  number  of  forms 
in  that  interval. 


Step  4,  Select  a  participant  for  the  sample  by  examining  each 
DA  Form  669  from  the  starting  point  until  a  form  is 
found  that  meets  the  participant  criteria  in  one  of  the 
five  selected  Vo-Tech  courses:  automotive,  diesel, 
welding,  electronics  or  construction  technology  on  or 
after  June  1977.  Transcribe  course  data  onto  the  data 
collection  form. 


Step  5,  Select  the  ''matched"  nonparticipant  by  choosing  the 
next  DA  Form  669  for  a  soldier  who  has  completed 
Advanced  Individual  Training  but  did  not  participate 
tn  a  vocational-technical  course.  Transcribe  demographic 
"control"  data  onto  the  data  collection  form. 


Step  6.  Select  each  subsequent  participant  and  nonparticipant 
by  repeatlnt  Steps  4  and  5  at  the  designated  intervals 
determined  .'.n  Step  2.  If  no  participant  was  found  in 
a  given  Interval,  then  two  participants  were  selected 
from  the  next  interval.  The  record  selected  in  this 
manner  for  the  second  participant  could  come  before  or 
after  Che  first  nonparticipant  selected. 


The  second  stage  Involved  collecting  data  from  the  DA  Form  201 
records  for  both  participants  and  nonparticipants  selected  in  Stage  1. 

At  each  Installation,  most  of  the  201  Jackets  were  located  at  a  central 
location,  either  the  Military  Personnel  Office  (MILPO)  or  the  Adjutant 
General  Office  (AG).  When  the  selected  201  Jackets  were  obtained  at  this 
central  location,  data  were  transcribed  onto  the  data  collection  form. 

When  the  201  Jackets  were  not  in  the  files,  these  data  were  not  obtained. 
Records  (201  Jackets)  missing  from  the  files  were  almost  always  attributable 
to  the  soldier  being  currently  outprocessed  or  already  having  left  the  in¬ 
stallation.  Due  to  time  constraints,  no  effort  was  made  to  locate  the 
missing  records. 

Figure  3  presents  the  two-sided  form  developed  for  collection  of 
the  Vo-Tech  participant/nonparticipant  data,  with  the  DA  Form  669  data 
and  the  DA  Form  201  data  to  be  recorded  on  opposi Le  sides.  The  Vo-Tech 
669  data  collection  form  consisted  of  identification  information  (SSN  and 
ETS),  Vo-Tech  participation,  description  of  courses  taken,  completion 
status,  and  other  ACES  program  participation.  The  Vo-Tech  201  Data  Collection 
form  listed  identification  and  demographic  information  (SSl),  ”  rthdato. 

Race,  Sex  and  Education  Level),  grade  rank,  selected  test  and/or  rating 
scores,  disciplinary  action  events,  and  selected  relevant  dates. 

Pilot  Test  of  Forms  and  Procedures.  Tlie  purpose  of  the  Vo-Tech 
program  pilot  test  was  to  rigorously  test  the  data  collection  forms  and 
procedures.  This  was  done  during  a  one-day  sice  visit  to  Fort  Knox,  Ken¬ 
tucky.  Using  the  procedures  previously  described,  data  were  collected 
on  15  participants  and  15  nonparticipants  of  the  Vo-Tech  program  courses 
selected.  The  data  were  collected  from  two  Education  Centers  and  two 
Military  Personnel  Offices. 

The  results  of  the  pilot  test  indicated  that  only  minor  modifi¬ 
cations  of  the  sampling  and  data  collection  procedures  and  the  data  collection 
forms  were  required.  The  sampling  procedure  had  to  be  modified  to  the 
plan  previously  reported,  i.e.,  matching  nonparticipants  were  selected 
from  the  DA  Form  669  files.  It  was  originally  planned  to  collect  parti¬ 
cipant  data  from  the  669  files,  then  proceed  to  the  201  Jackets  to  select 
nonparticipants.  The  modification  was  necessary  because  the  data  collectors 
were  not  given  direct  access  to  the  DA  Form  201  Jackets.  The  requested 
201  Jackets  had  to  be  "pulled"  by  military  personnel,  which  required 
selecting  the  nonparticipants  as  well  as  the  participants  in  advance. 

The  data  collection  form  was  modified  as  a  result  of  the  pilot 
test  to  exclude  Armed  Forces  Qualification  Test  (AFQT)  scores,  because 
this  information  could  not  be  obtained  from  the  201  Jackets.  Other  minor 
modifi  ations  were  also  made  to  the  form. 
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VO/TECH 

669  DATA  COLLECTION  FORM 


VO/TECH  COURSES 

Title 

CODE 

BASE 

HOURS 

COMPLETED 

1. 

30-32 

[fill 

■■ 

39 

2. 

IIRIK 

BUI 

46-4B 

49 

3. 

m 

lUl 

_ 56-58 

59 

4. 

wm 

IPII 

_  69 

5. 

m 

IIBB9 

Hi 

_ za 

2 

-80 - 9 
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m 

13-15 

IflHBI 

19 

7. 

■H 

29 

8. 

n 

33-35 

wm 

39 

9. 

46-48 

49 

10. 

BH 

53-55 

56-58 

59 

FIGURE  3.  VO-TECH  DATA  COLLECTION  FORM 
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VO/TECH  201  DATA  COLLECTION  FORM 


Disciplinary  Actions  I  I  Disciplinary  Actions 
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Data  Collection  Site  Visits  and  Results.  The  Vo-Tech  site  visits 
to  Fort  Polk  and  Fort  Bragg  were  made  by  two  data  collectors  during  the 
weeks  of  July  7-11,  1980  and  July  14-18,  1980,  respectively.  Data  from 
Fort  Bliss  were  collected  by  one  person  during  the  week  of  August  10-13, 
1980.  A  total  of  675  cases  were  collected:  341  Vo-Tech  participants 
and  334  Vo-Tech  nonpar tlclpants.  Table  8  presents  a  summary  of  the  Vo-Tech 
data  collected  by  post.  Since  the  starting  point  for  all  manual  data 
collection  was  the  DA  Form  669,  these  data  exist  for  all  of  the  675  cases. 

A  201  Jacket  was  not  found  for  every  previously  collected  669  case. 

Partial  "201"  data  were  collected  at  two  Installations.  At  Fort  Bragg, 
there  were  some  cases  where  the  201  Jacket  was  not  available,  but  a  computer 
listing  with  some  of  the  needed  data  was  available.  The  partial  data 
that  could  be  obtained  from  the  computer  listing  was  used  In  these  cases. 

At  Fort  Bliss,  only  partial  201  data  were  collected  for  each  soldier.  The 
201  data  that  was  collected  was  the  Information  that  was  not  available 
from  any  known  computerized  source. 


Problems  Encountered 


As  previously  stated,  data  were  collected  manually  for  the  Vo- 
Tech  program  at  three  installations  and  pre-tested  at  a  fourth  installation. 

In  collecting  data  at  four  different  bases,  four  problems  were  encountered 
at  the  Education  Centers:  (1)  lack  of  standardization;  (2)  lack  of  follow¬ 
up;  (3)  missing  demographic  data;  and  (4)  missing  A'^ES  program  data. 

Lack  of  Standardization.  Each  Education  Center  has  its  own 
coding  techniques.  The  title  for  any  Vo-Tech  course  only  has  meaning 
within  the  installation  where  the  course  was  taught,  and  sometimes  only 
within  the  particular  education  center.  There  is  then  no  way  of  equating 
a  course  title  with  the  level  of  difficulty  or  with  the  actual  subject 
matter  covered.  For  example,  a  notation  might  read  "auto  mechanics  course'' 
and  could  be  an  identifier  for  anything  from  Introduction  to  Auto  Repair  to 
Steering  Suspension  Systems.  Lack  of  standardization  in  course  content 
identifiers  creates  a  problem  for  the  soldier  when  he/she  changes  bases  and  for 
the  next  Education  Center.  It  becomes  impractical  for  the  new  Education 
Center  to  ascertain  from  the  record  exactly  what  the  soldier  has  been 
taught  in  the  past.  One  solution  to  this  problem  would  be  a  post-wide 
uniformity  of  course  titles,  with  the  pertinent  course  descriptions 
included  in  each  soldier's  education  record.  Another  is  an  Army-wide 
determination  of  what  must  be  covered  in  each  Vo-Tech  course.  This  latter 
solution  would  make  it  easier  for  the  soldier  to  document  this  type  of 
coursework  for  the  civilian  community. 

Lack  of  Follow-Up.  The  data  collectors  observed  that  in  many 
cases,  courses  are  recorded  when  a  soldier  enrolls,  but  the  out..ome  of 
that  course  is  not  noted.  From  the  record  it  is  impossible  to  determine 
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TABLE  8. 

SUMMARY  OF  VO- 

•TECH  DATA  COLLECTED 

INSTALLATION 

Participants 

Polk 

Brass 

Bliss 

Total 

Complete  201  data 

84 

101 

- 

185 

Partial  201  data 

- 

3 

66 

69 

No  201  data 

25 

42 

20 

87 

Total 

109 

146 

86 

341 

Non-Participants 

Complete  201  data 

89 

106 

- 

195 

Partial  201  data 

- 

7 

64 

71 

No  201  data 

22 

25 

21 

68 

Total 

111 

138 

85 

334 

TOTAL 

220 

284 

171 

675* 

*The  number  of  unique 

cases  was  672 

(3  of  those 

collected 

were 

duplicates) . 
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If  that  course  was  completed  and,  if  completed,  whether  the  soldier  passed 
and  with  what  grade,  or  If  he/she  completed  the  course  and  failed,  or  If 
the  soldier  dropped  out  before  course  cong)letlon.  To  correct  this  situation, 
counselors  would  probably  have  to  Institute  some  sort  of  flagging  system 
for  follow-up.  The  time  required  for  this  might  make  it  prohibitive  for 
most  counselors.  But,  without  this,  any  course  lacking  closure  documen¬ 
tation  is  almost  worthless  to  the  soldiur. 

Missing  Demographic  Data.  The  only  demographic  data  that  was 
frequently  found  missing  or  expired  was  the  ETS  (Estimated  Time  of  Separ¬ 
ation).  Since  this  datum  is  available  on  the  Military  Personal  Records, 
it  should  be  obtained  and  recorded  on  the  Education  Record. 

Missing  ACES  Program  Data.  Examination  of  the  Education  Record 
revealed  that  participation  in  ACES  programs  such  as  SOCAD,  SOC,  Apprentice¬ 
ship  and  VEAP  was  rarely  recorded.  Since  it  is  known  that  these  programs 
have  greater  participation  than  was  recorded,  it  can  be  assumed  that  these 
Education  Records  are  incomplete  and  that  this  incompleteness  of  recording 
is  also  tr  ,e  for  the  Vo-Tech  program. 

Moat,  if  not  all,  of  the  problems  mentioned  could  be  corrected 
if  reporting  and  recording  educational  data  were  mandatory  during  either 
inprocessing  or  outprocessing,  or  both. 

There  were  only  two  minor  problems  that  were  encountered  in 
collecting  demographic  data  from  the  UA  Form  201  Jackets.  The  first  was 
that  many  forms  in  the  Jacket  had  to  be  examined  in  order  to  get  the  data 
for  variables  that  were  needed  for  this  study.  The  second  problem  was 
that  folders  were  occasionally  missing  from  the  file  because  they  were  being 
used  for  outprocessing,  etc.  These  problems  were  encountered  because  of 
the  type  of  data  collection  used  in  this  study  and  do  not  appear  to  pose 
a  problem  for  Army  operations. 


Computerized  Data  Collection  and  Processing 


Data  Accession  Plan 


During  Part  I  of  the  project,  the  project  team  determined  that 
data  would  be  required  from  TRADOC,  MILPERCEN,  DMDC,  VA,  TSC,  possibly 
EREC,  and  from  the  selected  Array  posts.  Consequently,  a  plan  for  accessing 
these  data  was  created  that  would  minimize  the  number  of  requests  required 
and,  yet,  acquire  all  desired  data.  That  plan  is  presented  pictorially 
in  Figure  4.  Basically,  the  plan  can  be  summarized  as  follows: 


FIGURE  4.  DATA  ACCESS  FLOW 
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1.  Define  end  select  &SEP  I  LIT  and  BSEP  I  ESL  samples  and 
capture  data  for  several  Independent  variables  from  TRADOC. 

2.  Define  and  select  Vo-Tech  sample  and  collect  data  manually 
at  the  selected  Army  posts. 

3.  Define  and  select  VEAP  sample  by  accessing  the  USAREC  file 
at  DMDC  of  all  soldiers  who  entered  the  Army  during  a 
particular  time  period. 

4.  Obtain  data  for  other  control  and  dependent  variables  for 
the  above  samples  from  DMDC,  MILPERCEH,  EREC,  TSC,  and  VA. 

5.  Merge  these  data  Into  a  computer  file  capable  of  being  read 
by  the  Statistical  Package  for  the  Social  Sciences*  (SPSS). 

The  accession  plan  was  not  carried  out  quite  as  planned.  Data 
were  obtained  from  TRADOC  and  from  the  Army  posts  as  planned  in  June  through 
August,  1980.  During  August,  a  tape  was  received  from  MILPERCEM  containing 
data  on  all  soldiers  who  entered  the  Army  after  January,  1977.  This  tape 
was  requested  because  the  soldiers  in  the  BSEP  I  study  entered  the  Army 
afte  this  date.  Consequently,  this  tape  should  have  satisfied  most 
of  <■  needs  for  data  from  MILPERCEN. 

A  decision  to  not  study  the  VEAP  program  had  been  made  in  the 
interim.  Therefore,  the  data  requests  to  MILPERCEN  and  DMDC  were  simpli¬ 
fied.  After  a  list  of  SSN's  (Social  Security  Numbers)  had  been  constructed 
from  the  TRADOC  and  Vo-Tech  sources,  the  list  was  sent  to  DMDC.  The  list 
was  not  immediately  sent  to  MILPERCEN  because  a  low  match-rate  on  the 
earlier  MILPERCEN  tape  (approximately  50  percent)  indicated  there  might 
be  problems  either  at  TRADOC  or  at  MILPERCEN.  The  list  was  not  sent  to 
TSC  because  TSC  needed  information  on  soldier  accession  dates  to  access 
r''eir  files. 

Because  of  problems  at  DMDC,  Che  data  tape  was  not  received 
til  April,  1981.  In  the  meantime,  the  SSN  list  was  sent  to  MILPERCEN 
in  spice  of  potential  problems,  and  a  tape  was  received,  also  in  April,  1981. 

At  this  point,  all  data  was  merged  onto  a  file  on  the  UNIVAC  1108 
computer  at  Edgewood  Arsenal  and  a  preliminary  analysis  was  performed. 

Because  incomplete  responses  to  the  data  requests  were  found,  no  further 
requests  were  made. 


*Nie,  N.  H.,  et.  al. ,  "Statistical  Package  for  the  Social  Sciences", 
McGraw  Hill,  1970. 


(1)  TRADOC 


•  TRADOC  was  requested  to  send  all  data  collected  in 
connection  with  the  BSEP  I  Literacy  and  BSEP  I  ESL 
programs.  The  variables  available  for  study  are  located 
in  the  B«record. 

a  These  data  were  dumped  from  tape  ART  162  to  a  disk  file 
using  the  utility  program  ATX.  The  disk  file  was  loaded 
into  the  Master  file  via  procedure  TRADOC. 

e  There  were  9,418  records  on  the  tape,  of  which  8,693 

were  eligible  for  inclusion  in  the  Literacy  or  ESL  study. 

A  record  was  rejected  if  it  was  a  duplicate  or  if  the 
SelectABLE  score  was  too  high. 

(2)  Army  Posts 

a  Data  on  the  Vo^Tech  program  was  collected  manually  at 
three  Army  posts.  The  data  were  encoded  on  computer 
cards  and  loaded  into  the  T-record. 

e  The  cards  were  loaded  onto  a  disk  file  and  from  there 
loaded  into  the  Master  file  via  procedure  VOTECH. 

e  There  were  672  soldiers  for  whom  data  were  collected  for 
the  Vo- Tech  study. 

(3)  MILPERCEN 

•  MILPERCEN  was  requested  to  send  data  which  would  be 
used  as  control  and  dependent  variables  in  the  analysis. 
Two  requests  were  made,  one  for  all  soldiers  who  entered 
the  Army  after  January,  1977,  the  other  for  soldiers  whose 
SSN’s  were  on  a  list  supplied  to  MILPERCEN.  These  data 
are  located  In  columns  38-116  of  the  A-record. 

•  The  first  request  was  sent  on  tape  ARI  182  which  contained 
380,490  records.  The  tape  was  dumped  to  disk  using 
procedure  TAPEDMP  and  from  there  loaded  into  the  Master 
file  via  procedure  MILPERCEN. 

•  This  process  resulted  in  approximately  50  percent  matches 
between  the  TRADOC  and  Vo- Tech  records  and  those  from 
MILPERCEN,  an  unexpectedly  low  figure. 
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•  Tie  second  request  wss  sent  on  “.spe  ARI  306  which  contained 
4,030  records  (9,566  SSH's  were  submitted).  This  tape 
was  dumped  to  disk  via  procedure  TAPEDMP  (which  was  modified 
because  of  a  change  in  record  length)  and  from  there 
loaded  into  the  Master  file  via  the  procedure  MILPERCEN 
(also  modified  because  of  a  change  in  record  layout). 

a  4,048  of  these  records  were  placed  in  the  Master  file 
(the  others  were  duplicate). 

(4)  DMDC 

e  OMDC  was  also  requested  to  supply  data  which  would  be 
used  as  control  and  independent  variables.  Some  of  these 
overlapped  those  requested  from  MILPERCEN  for  two  reasons: 

1.  There  should  be  some  measure  of  reliability  between 
the  two  sources 

2.  MILPERCEN  purges  soldiers  who  have  left  the  Array, 
so  those  soldiers  would  only  be  present  on  DMDC's 
USAREC  and  Master  and  Loss  files. 

The  variables  available  for  study  are  located  in  columns 
121  to  244  of  the  A-record. 

a  These  data  were  dumped  from  tape  ARI  317  to  a  disk  file 
using  the  utility  program  ATX.  One  problem  occurred  in 
this  dump  in  that  ATX  could  not  handle  133  character 
length  records  (132  is  maximym) .  Fortunately,  133  ■ 

17  X  19,  so  seven  19-character  records  were  written  for 
each  logical  record  on  the  tape.  The  disk  file  was  then 
loaded  into  the  Master  file  via  procedure  DMDC. 

•  5,627  of  the  DMDC  records  had  data  for  the  9,566  requested 

(DMDC  filleu  the  record  with  zeros  when  a  match  wasn't 
possible) . 


Procedure  Development 


The  procedures  were  designed  in  such  a  way  that  they  could  be 
used  for  updating  or  creation.  This  was  deemed  appropriate  since  numerous 
problems  were  expected.  There  are  essentially  three  types  of  procedures: 

1.  Procedures  to  add  data  to  the  Master  file.  These  include 
INITIALIZE,  TRADOC,  VOTECH,  DMDC,  MILPERCEN,  EREC,  TSC, 
and  VEAP.  All  are  very  similar  in  that  they  merge  a 
sequential  file,  ordered  by  SSN,  into  the  Master  file. 


2.  Procedures  to  obtain  data  from  the  Master  file.  These  in¬ 
clude  SSM  and  SPSS  ACCESS.  They  basically  pass  sequentially 
through  the  file  and  vrite  data  to  a  sequential  file. 

3.  Procedures  to  manipulate  tapes.  The  only  one  developed  is 
TAPEOMP. 

These  procedures »  which  are  located  in  Appendix  A,  are  written 
in  such  a  way  as  to  be  self-documenting.  The  specifications  procedures 
which  were  isiplemenced  are  located  in  Appendix  B.  The  following  cosnants 
were  used  as  general  rules  in  implementing  the  procedures. 

(1)  All  dates  are  stored  in  the  format  YYMMDD. 

(2)  Whenever  a  record  is  added  to  the  Master  file,  the  blrthdate 
and  sex  are  placed  into  the  control  area  if  not  already 
present.  Consequently,  the  control  blrthdate  and  sex 
represent  those  items  for  the  first  sources  accessed. 

(3)  Wlienever  any  of  the  four  status  flags  are  non-*ero,  there 
oust  be  a  corresponding  B,  T,  or  V  record  present. 

(4)  Data  from  sources  are  moved  via  a  MOVE  CORRESPONDING  so 
that 

(a)  Only  required  data  are  stored. 

(b)  If  later,  more  data  are  needed,  the  procedure  can  be 
easily  modified  to  add  data,  by  Just  changing  the 
layout  in  the  Data  Division. 

(5)  Records  in  the  ACES-STUDY-MASTER-FILE  are  accessed  as 

though  already  present.  If  not  present,  they  are  initialized. 
The  advantages  to  this  scheme  are: 

(a)  The  same  procedures  can  be  used  for  record  creation 
and  updating  (though  initial  processing  will  take 
slightly  longer). 

(b)  The  order  of  execution  of  the  various  procedures  is 
less  strict. 

(c)  Soldiers  involved  in  more  than  one  study  are  easy  to 
process. 

(6)  In  all  procedures,  processing  includes  a  dump  of  a  sufficient 
number  of  records  for  sighc  verification,  e.g., 

For  the  first  25  A-records  updated,  dump  — 
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1.  All  rttcorda  to  that  point  on  tha  input  data  tapa 

2.  Tha  A'^tacord  bafora  and  aftar  updating. 

(7)  In  tha  data  divialon,  lavala  ara  initially  aaaignad  odd 
numbara  (01,  03,  OS,  ate.). 

(8)  Xnitialiaation  phasa  always  Includes  — 

(a)  A  nastaga  identifying  which  procedure  is  beginning 
execution. 

(b)  A  1-lina  print  of  tha  000  00  0000  Z  record. 

(9)  All  procedures  begin  and  and  by  printing  tha  Master  File 
Status,  Figure  5  on  tha  following  page,  plus  other  infor¬ 
mation  shown  as  appropriate. 

Thera  %rare  10  files  envisioned  during  the  design  phase  of  the 
procedures.  These  are  listed  in  Table  9  together  with  information  on  those 
t'  at  were  accessed.  Appendix  B  presents  the  basic  purpose  of  each  procedure 
together  with  the  files  needed  and  the  general  processing  design. 


Procedures  to  Perform  Analysis 


Several  procedures  have  been  implemented  to  slnpllfy  gaining 
access  to  the  data  and  to  execute  an  SPSS  program  (all  are  under  project 
ID:  ACES).  The  procedures  are  as  follows: 

(1)  To  create  an  extract  of  the  Master  file  which  can  be  read 
by  SPSS,  enter: 

9  ASG.A  FILES 

9  ADD  FILES. CREATE 

When  prompted,  enter  the  type  of  file  desired. 

(2)  To  create  an  SPSS  program,  use  the  standard  editor.  Some 
examples  are  in  filename  SPSS. 

(3)  To  execute  an  SPSS  program,  whose  control  statements  are 
in  SPSS.ALLl,  for  instance,  enter: 

9  /.SG,A  FILES 

9  ADD  FILES.  RUN 


9  ADD  SPSS.ALLl 


I.  MASTER  FILE  STATUS 

TYPE  RECORD 
A 
P 
T 
V 


TIME  12S314 
DATE  810701 
PREQUENCIES 
0 
0 
0 
0 


TOTAL  000 

DATE  INITIALIZED  810701 

DATE  LAST  MODIFIED  810701 


II.  PROCEDURE  STATUS  COUNTERS  (procedure  dependent) 

e.g.,  A.  Number  of  records  on  tape  file  - 

B.  Number  of  B  records  written  - 

C.  Types  of  errors  encountered  - 
e  :c . 

III.  ACES  PROCEDURE  STATUS  COUNTERS  (procedure  dependent) 

e.g.,  A.  Number  of  participants  in  BSEP  I  Literacy  phase. 


FIGURE  5.  MASTER  FILE  STATUS  REPORT 
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TABLE  9.  FILE  DESCRIPTION  SUMMARY 


1.  ACES~STUDY-MASTER<FILE 

This  Indsxsd-^ssqusntial  fils  has  s  10-charactsr  ksy  constructsd 
fron  tha  SSN/ASN  and  the  record-typa  dascripcor.  It  contains  all 
data  availabla  for  an'',  lis  for  tha  cross-^sactional  study. 

Record  site:  300  c;  *a,  blocking  factor:  30  racords. 

2.  TRAOOC-DATA-TAPE 

This  tape  file  is  received  from  TRADOC  and  contains  all  data 
collected  in  conjunction  with  the  BSEP  I  program.  Record  size: 

80  characters,  unblocked. 

3.  VO-TECH-DATA-TAPE 

This  card  file  contains  the  data  collected  at  the  posts  to  be 
used  in  studying  the  Vo-Tech  program.  Up  to  three  cards  per 
soldier. 

4.  SSN-LIST-TAPE 

This  tape  file  is  created  from  the  ACES-STUDY-MASTER-FILE.  It 
contains  the  SSN/ASN  of  every  soldier  currently  on  file.  This 
tape  is  sequentially  ordered  by  SSN.  Record  size:  30  characters. 
Blocking  factor:  Variable,  depending  on  destination. 

5.  DMDC-DATA-TAPE 

This  tape  file  is  received  from  DMDC  and  it  contains  data  requested 
on  certain  soldiers.  This  tape  is  sequentially  ordered  by  SSN. 
Record  size:  133  characters,  blocking  factor:  40  records. 

6.  MILPERCEN-DATA-TAPE 

This  tape  file  from  MILPERCEN  contains  selected  data  on  all  soldiers 
currently  in  the  service  (enlisted  personnel).  This  tape  is 
sequentially  ordered  by  SSN. 
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TABLE  9.  (C  ntinued) 


ART  182:  Record  size:  83  characters,  blocking  factor: 

30  records. 

ARI  306:  Record  size:  88  characters,  blocking  factor: 

30  records. 

7 .  TSC-DATA-TAPE 

This  tape  from  TSC  contains  the  SQT  component  scores  for  all 
soldiers  in  the  study.  This  tape  is  sequentially  ordered  by 
SSN.  (This  tape  was  not  requested.) 

8.  VEAP-DATA-TAPE 

This  tape  file  contains  all  data  available  at  the  VA  for  soldiers 
in  the  study.  This  tape  is  sequentially  ordered  by  SSN. 

(This  tape  was  not  requested.) 

9.  EREC-DATA-TAPE 

If  EREC  is  accessed,  this  file  will  contain  the  data. 

(This  tape  was  not  requested.) 

10 .  SP3S-DATA-TAPE 

This  tape  is  created  from  the  ACES-STUDY-MASTER-FILE.  It  contains 
all  data  needed  for  a  particular  study  in  a  format  compatible 
with  SPSS.  For  each  record  type  requested,  3  records  of  120 
characters  each  are  written  (UNIVAC  SPSS  has  a  maximum  input 
record  length  of  132  characters). 


- - -TTWiittieainir' •  in,., 
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A  sample  SPSS  program  using  this  system  Is  described  in  the 
following  pages  (see  Figure  6).  Appendix  C  presents  the  set  of  SPSS 
program  variables  developed.  This  Is  the  program  used  to  define  the  sample 
sizes  and  calculate  the  discrepancies  presented  in  this  report.  Only 
the  first  task  control  cards  are  described.  This  program  was  created 
using  the  UNIVAC  editor  on  a  file  called  SPSS.ALLl.  It  was  executed  as 
follows : 


>  (3  ASG,A  FILES 

>  @  ADD  FILES .CREATE 

>  @  2  (In  response  to  the  type  of  raw  file  to  be  created) 

>  @  ADD  FILES. RUN 

>  @  ADD  SPSS.ALLl. 

There  were  numerous  problems  that  had  to  be  overcome  in  the 
development  and  implementation  of  these  procedures.  Some  of  the  more 
noteworthy  include: 

•  The  use  of  an  outdated,  overworked  computer  system,  the 
Edgewood  Arsenal  UNIVAC  1108  under  the  EXEC  8  operating 
system. 

•  The  arbitrary  limitations  placed  on  the  user  in  the,  supposedly, 
ANSI  COBOL  and  SPSS  on  this  computer.  (Especially,  on  records 
sizes  of  files  used  for  I/u  (input/o  “put). 

•  The  lack  of  expert  assistance  of  the  staff  operating  this 
computer.  For  instance,  apparently  few  personnel  operating 
this  computer  have  used  random  access  files  or  COBOL. 

•  The  inability  to  contact  directly  those  personnel  who  supply 
the  requested  data.  Requests  for  data  had  to  be  routed 
through  intermediaries.  Tnis  process  caused  communication 
problems  and  loss  of  time. 

•  The  necessity  to  go  through  a  hierarchy  of  contacts  to  get 
even  a  simple  question  answered. 

•  Problems  of  signing  on  the  computer  because  of  overused  phone 
trunk  lines  into  Edgewood  Arsenal. 


SPSS  BATCH  STSTBH 


07/01/81 


SPSS  FOR  SFERRT  URIVAC  1100  EXEC  8,  VERSIOR  H,  RELEASE  8.1-UV1.1,  BECEKBER  I960 

> 

SPACE  ALLOCATION. .  ALLOWS  FOR..  87  TRANSFORMATIONS 

WORKSPACE  17900  WORDS  732  RECODE  VALUES  *  LAG  VARIABLES 

TRANSPACE  2500  WORDS  664  IF/COMPUTE  OPERATIONS 

1 .  RUN  NAME  ALL1  -  GENERAL  STATS  AND  SAMPLE  SIZES 

2.  FILE  NAME  ALL1 

3.  VARIABLE  LIST  SSN.  LITFLQ,  ESLFLG,  TECHFLG,  MILPFLG,  DMDCFLQ, 

4.  DOBTY,  DOBMM,  DOBDD,  SEXCNTRL,  SEXMILP,  MYY,  MMM,  MDD, 

5.  PODBS,  PSODT,  PQSCR,  PQPER, 

6.  DTY,  DMM,  DDD,  SEXDMDC, 

7.  SSNTRAD,  SEXTRAD,  SSNTECH,  TYY,  TMM,  TDD,  SEXTECH 

8.  INPUT  MEDIUM  TAPE 

9.  INPUT  FORMAT  FIXED  (F9.0, 1X,3F1 .0, 1X,2F1 .0, 14X,3F2.0,2A1 ,2X,3A2, 

10.  52X,A4,A4,A3.A2,/, 

11.  3F2.0,2X, A1, //,F9.0.26X,A1,///,F9.0,5X, 312.0, IX, A1,//) 


ACCORDING  TO  TOUR  INPUT  FORMAT,  VARIABLES  ARE  TO  BE  READ  AS  FOLLOWS 
VARIABLE  FORMAT  RECORD  COLUMNS 


SSN 

F  9. 

0 

1 

1-  9 

LITFLO 

F 

1. 

0 

1 

11-  11 

ESLFLG 

F 

1 . 

0 

1 

12-  12 

TECHFLG 

F 

1. 

0 

1 

13-  13 

MILPFLG 

F 

1. 

0 

1 

15-  15 

DMDCFLG 

F 

1 . 

0 

1 

16-  16 

DOBYT 

F 

2. 

0 

1 

31-  32 

DOBMM 

F 

2. 

0 

1 

33-  34 

DOBDD 

F 

2. 

0 

1 

35-  36 

SEXCNTRL 

A 

1 

1 

37-  37 

SEXMILP 

A 

1 

1 

3B-  38 

KIY 

A 

2 

1 

41-  42 

MMM 

A 

2 

1 

43-  44 

HDD 

A 

2 

1 

45-  46 

PQDES 

A 

4 

1 

99-  102 

PSQDT 

A 

4 

1 

103-  106 

P5SCR 

A 

5 

1 

107-  109 

POPED 

A 

2 

1 

110-  111 

DTY 

F 

2. 

0 

2 

1-  2 

DMM 

F 

2. 

0 

2 

3-  4 

DDD 

F 

2. 

0 

2 

5-  6 

SEXDMDC 

A 

1 

2 

9-  9 

SSNTRAD 

F 

9. 

0 

4 

1-  9 

3EXTPAD 

A 

1 

4 

36-  36 

SSNTECH 

F 

9. 

0 

7 

1-  9 

TYY 

F 

2. 

0 

7 

15-  16 

TMM 

F 

2. 

0 

7 

17-  18 

TDD 

F 

2. 

0 

7 

19-  20 

ALU  -  GENERAL  STATS  AND  SA-V^LE  SIZES 


FIGURE  6.  SAMPLE  SPSS  PROGRAM 
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ACCORCIRO  TO  YOUR  IXm  FORMAT,  VARIABLES  ARE  TO  BE  READ  AS  FOLLOWS 
VARIABLE  FORMAT  RECORD  COLUMRS 


SEXTGCH 


7  22-  22 


THE  IRPUT  FORMAT  PROVIDES  FOR  29  VARIABLES. 

IT  PROVIDES  FOR  9  RECORDS  (’CARDS*)  PER  CASE. 


29  WILL  BE  READ 

A  MAXIMUM  OF  111  ’COLUMRS’  ARE  USED  OR  A  RECORD. 


12.  R  OF  CASES  URXROVR 

13.  RECODE  MYY,  MMM,  MDD  (’  ’  ■  ’00’) 

14.  RECODE  RTt.  MMM,  MDD  (CORVERT) 

15.  COMPUTE  BOTKFLO  •  0 

16.  IF  (KILPFLQ  BQ  1  AMD  DMDCFLC  EQ  1)  BOTHFLQ  -  1 

17.  IF  (SSRTRAD  OT  0)  TRAHERE  •  1 

18.  IF  (SSRTECH  M  0)  TECHHERE  ■  1 

19.  COMPOTE  CRTDAYS  -  TRMODA  (DOBYY.DOBMM.DOBDD) 

20.  COMPUTE  MILFOAYS  •  YRMODA  (MYY.MMM.MDD) 

21.  COMPUTE  DMDIDAYS  •  YRMODA  (DYY,DMM,DDD) 

22.  COMPUTE  TECHDAYS  •  YRMODA  (TYY,TMM,TDD) 

23.  COMPUTE  CRTMIL  -  ABS  (CRTDAYS  -  MILPDAYS) 

24.  COMPUTE  CRTDMD  •  ABS  (CRTDAYS  -  DMDCDAYS) 

25.  COMPUTE  CKTTEC  -  ABS  ( CRTDAYS  -  TECHDAYS) 

26.  COMPOTE  MILDMD  -  ABS  (MILPDAYS  -  DMDCDAYS) 

27.  COMPOTE  MILTEC  •  ABS  (mILPDAYS  -  TECHDAYS) 

28.  COMPOTE  DMDTEC  -  ABS  (DMDCDAYS  -  TECHDAYS) 

29.  RECODE  CRTMIL  TO  DMDTEC  (0  THRU  30  -  1 )  (31  THRU  HI  ■  2) 

30.  RECODE  SEXDMDC  (’1*  •  ’M*)  (’2’  •  ’F’) 

31.  DO  REPEAT  IK  “  SEXMILP,  SEXDMDC,  SBXTECH  / 

32.  OUT  •  SCRTMIL,  SCNTDMD,  SCHTTECH  / 

33.  COMPOTE  OUT  •  0 

34.  IP  (SEXCRTRL  EQ  ’M’  OR  ’F’  AMD  IN  EQ  ’M’  OR  ’F’)  OUT  «  1 

35.  IF  •  (OUT  EQ  1  AMD  SEXCRTRL  BQ  IN)  OUT  -2 

36.  END  REPEAT 


37.  DO  REPEAT 
36. 

39.  COMPOTE 

40.  IF 

41.  IF 

42.  END  REPEAT 


IN  •  SEXDMDC,  5EXTECH  / 

OUT  •  SMILDMD,  SMILTECH  / 

OUT  •  0 

(SEXMILP  BQ  ’M’  OR  ’F’  AND  IN  EQ  ’M’  OR  ’F’)  OUT  -  1 
(OUT  EQ  1  AND  SEXMILP  EQ  IN)  OUT  »  2 


COMPUTE  SDMDTECH  •  0 

IF  (SEXDMDC  EQ  ’M’  OR  ’F’  AND  SEXTECH  EQ  ’M’  OR  ’F’)  SDMDTECH 

IF  (SDMDTECH  BQ  1  AND  SEXDMDC  EQ  SEXTECH)  SDMDTECH  <•  2 

ASSIGN  MISSING  CNTDAYS  TO  DMDTEC  (-1 ) 

PRINT  FORMATS  .SEXCRTRL,  SEXDMDC,  SEXMILP,  SEXTRAD,  SEXTECH  (a) 

PQDES,  PSQDT,  PQSCR,  PQPER  (A) 

TASK  NAME  INTEGRITY  CHECK 

•select  if  (SSN  HE  SSRTRAD  AND  SSNTECH) 

LIST  CASES  CASES-3  /  VARIABLES  •  ALL 


49.  TASK  NAME  INTEGRT'! 

50.  •select  if  (ssn  he 

51.  LIST  CASES  CASES-3 

ALL1  -  GENERAL  STATS  AND  SAMPLE  SIZES 
INTEGRITY  CHECK 

52.  FREQUENCIES  GENERAL 

53.  OPTIONS  5 


07/01  /81 


SEXCRTRL 


GIVEN  WORKSPACE  ALLOWS  FOR  4375  VALUES  AND  1749  LABELS  PER  VARIABLE  FOR  ’FREQUENCIES’ 


•EXECUTION  TERMINATED^ 


FIGITRE  6.  (Continued) 
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PrellmitiTv  Analyala 


Only  a  very  rudimentary  analysis  was  performed.  The  purpose  of 
this  analysis  was  to  verify  that  the  system  operated  properly  and  to 
determine  the  quality  of  some  of  the  data  obtained. 

The  analysis  demonstrated  that  the  syst'^m  operated  as  planned. 
However,  the  quality  of  the  data  obtained  was  less  than  was  expected. 

The  first  Indicator  of  poor  quality  was  the  low  retrieval  rate  at  both 
DMDC  and  MILPERCEN.  The  achieved  sairple  sizes  of  each  study,  broken  out 
by  the  number  of  matches  at  DMDC  and  MILPERCEN,  Is  presented  In  Table  10. 
The  table  reveals  that  only  34  percent  of  the  BSEP  I  Literacy  sample  have 
both  records,  54  percent  of  the  BSEP  I  ESL  sample  have  both  records,  and 
68  percent  of  the  Vo-Tech  sample  have  both  records.  Because  almost  all 
of  these  soldiers  entered  the  Army  after  January,  1977,  It  was  expected 
chat  Che  match  rate  at  DMDC  would  approach  100  percent.  Data  for  soldiers 
who  have  dropped  out  of  the  Army  should  be  missing  at  MILPERCEN,  so  100 
percent  retrieval  was  not  expected.  However,  almost  100  percent  retrieval 
of  the  data  for  the  Vo-Tech  sample  was  expected. 

The  next  quality  check  performed  was  to  conduct  a  comparison 
be*-ween  the  blrthdates  available  at  the  various  sources.  The  results 
are  presented  in  Table  11.  As  can  be  seen  in  the  table,  there  is  some 
disagreement  even  when  permitting  a  30-day  error  in  blrthdate  matches. 

A  similar  check  was  performed  on  the  sex  designation  of  the  soldier  by 
source  and  those  results  are  presented  in  Table  12.  The  discrepancy 
numbers,  i.e.,  cases  for  which  both  sources  have  data  on  blrthdate  or 
sex  but  the  data  do  not  match,  in  these  two  tables  are  not  large,  but 
any  discrepancy  on  basic  variables  like  blrthdate  and  sex  decreases 
confidence  in  the  quality  of  the  remaining  data.  It  is  especially  dis¬ 
appointing  to  observe  the  disagreement  between  MILPERCEN  and  DMDC 
(DMDC  files  contain  refined  MILPERCEN  raw  data). 

The  other  check  performed  was  to  determine  the  quality  of 
the  SQT  data  provided  by  MILPERCEN.  This  check  was  made  to  determine 
if  accessing  TSC  for  SQT  data  v'ould  be  necessary.  For  the  Vo-Tech  sample 
of  672  shown  in  Table  10,  only  139  SQT  scores  were  recorded  in  the 
MILPERCEN  data.  Thus,  MILPERCEN  does  not  appear  to  be  a  good  source 
of  SQT  data. 

It  was  not  possible  to  identify  the  causes  of  the  missing  and 
discrepant  data.  However,  some  questions  concerning  potential  causes 
are  appropriate: 

•  Are  the  SSN's  supplied  by  TRADOC  accurate?  There  is  some 
doubt  that  the  TRADOC  SSN's  are  accurate  because  they  did 
not  match  SSN's  supplied  by  MILPERCEN  using  two  different 
access  methods. 
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TABLE  10.  SAMPLE  SIZES  WITH 


Sample 

Size 

Those 

With 

DMDC 

Data 

X 

BSEP  I  LITERACY 

6482 

3453 

53.3 

Participant 

2138 

1307 

61.1 

Non- Participant 

4344 

2146 

49.4 

BSEP  I  ESL 

2411 

1667 

69.1 

Participant 

1395 

1068 

76.6 

Non-Participant 

1016 

599 

59.0 

Vo-Tech 

672 

508 

75.6 

Participant 

338 

248 

73.4 

Non-Participant 


334 


260  77,8 


AND  MILPERCEN  DATA  MATCHES 


Those 

With 

MILPERCEN 

Data 

X 

Those  With 
Both 

X 

2291 

35.3 

2185 

33.7 

- 

879 

41.1 

845 

39.5 

1 

s 

1412 

32.5 

1340 

30.8 

1 

1352 

56.1 

1304 

54.1 

i 

897 

64.3 

864 

61.9 

455 

44.8 

440 

43.3 

581 

86.5 

454 

67.6 

283 

83.7 

213 

63.0 

! 

< 

i 

298 

89.2 

241 

72.2 

] 

1 
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TABLE  11.  BIRTHDATE  COMPARISONS 


Sample 

Size 


Dates 
Within 
30  Days 


)ates  Not 
Within 
30  Days 


Jomparison 

Not 

Possible** 


CONTROL*  vs.  MILPERCEN 

9564 

4194 

9 

5361 

CONTROL  vs.  DMDC 

9564 

5537 

89 

3938 

MILPERCEN  vs.  DMDC 

9564 

3850 

91 

5623 

MILPERCEN  vs.  Vo-Tech 

672 

352 

4 

9208 

DMDC  vs.  Vo-Tech 

672 

295 

6 

9263 

*  CONTROL  is  from  either 
**  Not  computable  because 

TRADOC 

one  or 

or  Vo-Tech, 
both  birthdates 

are  not 

present  or 

not  a  valid  date. 


39 


TABLE  12.  SEX  COMPARISONS 


Sample 

Size 

Sex 

Matches 

Sex 

Mismatch 

Not 

Comparable** 

CONTROL*  vs.  MILPERCEN 

9564 

4217 

6 

5341 

CONTROL  vs.  DMDC 

9564 

5618 

9 

3937 

MILPERCEN  vs.  DMDC 

9564 

3938 

64 

5562 

MILPERCEN  vs.  Vo-Tech 

672 

367 

0 

9197 

DMDC  vs.  Vo- Tech 

672 

309 

0 

9255 

*CONTROL  Is  either  from  TRADOC  or  Vo-Tech. 

*'*Not  c''  arable  means  one  or  both  sex  data  are  missing  or  not  a  valid 
type 
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•  Vhlch  data  aourca  la  aora  rallabla?  (Accaaslng  still  other 
sources  might  shad  som  light  on  this.) 

a  If  the  SSN's  are  accurate,  has  DMDC  bean  unable  to  properly 
respond  to  Battelle's  data  request?  (DMDC  recently  Installed 
a  nev  computer  system,  and  some  of  the  problems  encountered 
indirectly  demonstrate  staff  inexperience.) 

a  Other  data  were  also  collected  from  both  sources,  do  these 
data  indicate  similar  problems? 

The  actions  required  to  overcone  the  problems  would  be  as  follows. 
An  attempt  could  be  made  to  resolve  the  problems  encountered  and  perform  an 
analysis  along  the  lines  planned.  More  work  on  the  data  file  could  over¬ 
come  or  alleviate  the  discrepancies  found  thus  far  and  permit  an  analysis 
of  data.  Certainly,  the  sample  sizes  are  large  enough.  The  comparative 
statistical  analysis  would  be  performed  as  specified  in  the  Part  I 
Technical  Report  using  SPSS  routines.  Planned  analysis  using  SQT  scores 
would  be  eliminated. 


Summary  of  Problems  Encountered  During 
Collection.  Storage,  and  Management  of  Data 


It  is  appropriate  to  examine,  in  summary,  the  problems  encountered 
by  the  Battelle  staff  during  collection,  storage,  and  management  of  Vo-Tech 
Program  and  computerized  soldier  performance  data  and  the  implications 
for  subsequent  linking  of  ACES  data  and  soldier  performance  data  in  the 
evaluation  of  program  Impact.  These  considerations  will  provide  an  op¬ 
portunity  to  assess  what  was  learned  in  the  efforts  to  resolve  these 
problems. 


Vo-Tech  Data  Collection 


The  data  recorded  on  the  Form  669 's  regarding  Vo-Tech  course 
identification  and  content  was  not  standardized  either  within  Army  posts 
or  between  posts.  This  lack  of  standardization  in  course  identification 
and  content  makes  the  classification  of  soldier  participants  into  groups 
with  homogeneous  educational  experiences  extremely  difficult.  Therefore, 
the  formation  of  such  groups  for  comparative  analysis  of  program  impact 
is  experimentally  specious. 

The  lack  of  standardization  in  data  records  is  further  compounded 
by  the  observed  missing  data  on  course  follow-up.  In  a  significant 
number  of  instances,  data  were  not  recorded  on  the  Form  669's  regarding 
course  completion,  course  grade,  and  course  drop-out.  Hence,  the  extent 
of  the  educational  experience  for  these  soldier  participants  with  missing 
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data  could  not  bt  datarmlnad.  This  circumstance  further  complicates 
the  classification  of  soldiers  to  the  ACES  program  participation  -  non¬ 
participation  categories  for  cotsparative  analysis. 

The  further  observation  during  manual  data  collection  from  the 
Form  669 's  of  a  spuriously  low  incidence  of  recorded  data  on  participation 
in  other  ACES  programs  such  as  SOC,  SOCAO.  and  Apprenticeship  Training 
indicates  potential  probelms  for  evaluating  impact  across  ACES  programs. 
Significant  incidence  of  missing  data  on  participation  in  these  other 
ACES  programs  may  preclude,  or  make  costly,  obtaining  satisfactory  sample 
sizes  for  groups  of  soldier  participants.  The  levels  of  precision  and 
validity  of  participant  versus  nonparticipant  comparisons  may  V.e  less 
than  desired  to  the  extent  they  are  affected  by  the  missing  data. 


Computerized  Data  Collection 


The  development  and  implementation  of  procedures  for  processing 
and  storage  of  data  on  the  UNIVAC  1108  computer  at  Edgewood,  Maryland 
did  not  progress  as  rapidly  as  planned  because  of  the  age  and  jerceived 
"overworked"  circumstance  of  the  computer  system.  The  EXEC  8  operating 
system  was  judged  not  to  be  as  "up-to-date"  as  is  possible.  Delays  were 
experienced  in  getting  on  to  the  system,  seemingly  unexpected  "bugs" 
were  encountered  that  were  not  explained  by  system  documentation,  and 
limitations  on  input-output  file  sizes  hampered  procedures  development 
and  subsequent  processing.  The  random  access  files  and  COBOL  routines 
used  In  the  data  storage  and  management  procedures  were  not  familiar  to 
some  of  the  UNIVAC  1108  operating  staff.  These  staff  members  could  not 
provide  assistance  when  developmental  and  operational  problems  were 
encountered.  For  these  rec.sons,  it  is  anticipated  that  not  infrequent 
operational  problems  would  be  encountered  in  conducting  an  ongoing  ACES 
program  impact  analysis  on  the  UNIVAC  1108  computer  at  Edgewood,  Maryland. 
The  assignment  of  a  contractor  employed,  data  processing  and  analysis 
specialist  to  the  UNIVAC  1108  conq>uter  site  could  eliminate,  or  resolve, 
some  of  the  anticipated  problems.  (The  Eattelle  staff  accessed  the  UNIVAC 
1108  computer  by  means  of  telephone  lines  from  Columbus,  Ohio.) 

Requesting  and  obtaining  data  from  multiple,  computerized  data 
sources  was  hampered  by  the  lack  of  direct  contact  between  the  Battelle 
staff  and  the  person  from  each  agency  supplying  the  data.  All  questions 
concerning  uncertainties  in  formats  and  specifications  of  both  the  request 
and  the  source  had  to  be  resolved  by  means  of  contacts  through  several 
intermediaries.  This  mode  of  contact  caused  delays  in  resolving  these 
questions,  introduced  errors  in  interpretation,  and  degraded  the  value 
of  feedback.  It  is  recognized  that  this  mode  of  contact  is  necessary 
for  the  initial  cycle  of  contacts  in  order  to  legitimize  the  request  for 
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data  and  to  aatablish  tha  authoritation  for  supply  of  data.  In  subsaquant 
contact  cyclas,  howavar,  tha  contacts  should  ba  aada  dlractly  batvean 
requesting  and  source  personnel,  with  notification  and  explanation  of 
contacts  sent  to  cognisant  intarmadiarias.  It  is  baliavad  that  this 
latter  node  of  contact  is  nore  efficient  and  effective  In  requesting 
and  obtaining  data  from  computerised  sources. 

The  specific  cause (s)  for  the  perceived,  low  matching  and/or 
retrieval  rates  on  SSN*s,  birthdates,  and  sex  among  the  TBADOC  data 
cape,  manually  collected  Vo-Tech  Program  data,  DMDC  data  tape,  and 
MILPERCEN  data  tape  is  (are)  not  known.  It  was  anticipated  that  the 
matching  and/or  retrieval  races  would  be  much  higher  than  those  achieved, 
e.g.,  it  was  expected  chat  the  match  rate  on  SSM's  between  TRAOOC  and 
Vo- Tech  data  and  DMDC  data  would  approach  j.00  percent,  but  the  achieved 
rates  ranged  from  about  S3  percent  Co  about  76  percent.  It  is  net  known 
which  data  source  is  most  reliable.  The  cause (s)  of  the  low  matching 
and/or  retrieval  rates  must  be  Isolated  and  the  mechanism  understood 
(perhaps,  it  (they)  need  not  be  corrected)  before  the  data  can  be  used 
for  comparative  statistical  analysis  of  ACES  program  Impact.  The  sample 
sizes  of  the  program  groups  for  which  matches  and/or  retrievals  were 
obtained  are  large  enough  to  justify  conq>arative  analysis.  Therefore, 
direct  contacts  between  the  personnel  performing  the  conparative  analysis 
and  Che  TRADOC,  DMDC,  and  MILPERCEK  operating  personnel  would  likely 
result  In  isolating  and  defining  the  mechanism(a)  causing  Che  low  matching 
and/or  retrieval  races.  The  need  for  and  nature  of  appropriate  corrective 
actions  could  then  be  determined.  Then,  the  comparative  statistical 
analysis  of  program  impact  could  be  performed  consistent  with  the  Part  I 
Technical  Report  analysis  plans.  Of  course,  analysis  involving  SQT  scores 
would  have  to  be  eliminated  unless  the  appropriate  SQT  data  were  requested 
and  obtained  from  Che  ISC. 
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IDENTIFICATIOK  DIVISION. 

PROGHAN-ID.  INTIALIZ. 

IlfSTALUTION.  ABERDEEN  PROVING  GROUND,  ND  .  21010. 
DATE-WRITTEN.  MAY  1900. 

RMARKS.  THE  PURPOSE  OP  THIS  PROGRAM  IS 

I  TO  GENERATE  ONE  Z  TYPE  RECORD 
INDEXED  BY  OOOOOOOOOZ 
THE  Z  RECORD  CONTAINS  THE  FREQUENCIES 
OP  THE  A,B,T,  AND  Z  TYPE  RECORDS 
AND  IS  POUND  ON  ACES-MASTER-PILE 


1 1 


II  TO  ESTABLISH  AN  INTIAL  DATA  BASE  TO 
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ACCEPT  VARIOUS  INFORMATION  AND  BE 


13 

14 


PLACED  INTO  THE  DATA  BASE  VIA  A  SPECIFIC 
RECORD  TYPE 


I 

i 


15 

16 
17 


A-TYPE 

B-TYPE 

T-TYPE 


r 

[ 

E 

t 


K 


I 


1 

1 

I 

I 

I 

I 

I 

I 


18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 


V-TYPE 

III  TO  GENERATE  A  STATUS  REPORT 

WITH  FREQUENCY  OP  A,S,T,V,  RECORDS. 
ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  UNIVAC-1108. 

OBJECT-COMPUTER,  UNIVAC-1108. 

INPUT -OUTPUT  SECTION. 

FILE-CONTROL. 

SELECT  ACES-MASTER-PILE  ASSIGN  TO  MASS-STORAGE  MASTER 
ORGANIZATION  IS  INDEXED 
ACCESS  MODE  IS  RANDOM 
PILE-LIMIT  IS  20000 
ACTUAL  KEY  IS  MASTER-SBARCH-KEY. 

SELECT  PRINTER1  ASSIGN  TO  PRINTER. 

DATA  DIVISION. 

PILE  SECTION. 

► 

PD  ACES-MASTER-FILE, 

LABEL  RECORDS  ARE  STANDARD, 

RECORD  CONTAINS  300  CHARACTERS, 

BLOCK  CONTAINS  30  RECORDS, 


01  NASTER-RGCORD. 

03  SSARCH-KEY. 

05  3SN  PIC  9(9). 

05  RSCORD-TYPS  PIC  X. 

03  DATA-AREA  PIC  X(290). 

PD  PR1RTER1 

LABEL  RECORDS  ARE  OMITTED 

DATA  RECORD  IS  PRINT-LINE. 

01  PRINT-LINE. 

03  CARRIAOB-CONTROL-CHARACTER  PIC  X. 

03  PRINT-DATA  PIC  X(l2l). 

VORKINO-STORAGB  SECTION. 

77  MASTER-SBARCH-KEY  PIC  X(10). 

» 

*  MACHINE  DATE-TIME  IS  ACCEPTED  PROM  THE  SYSTEM  AND 

*  IS  PRINTED  OUT  WHEN  PILES  ARB  OPENED  AND  CLOSED 
» 

01  MACHINE-DATE-TIMB. 

03  MACHINE-DATE. 

05  MM-DATE  PIC  XX. 

05  DD-DATB  PIC  XX. 

05  YY-DATE  PIC  XX. 

03  MACHINE-TIME. 

05  HOUR -DATE  PIC  XX. 

05  MIN-DATE  PIC  XX. 

05  SEC-DATE  PIC  XX. 

» 

*  SEQUENCED  DATE  IS  THE  DATE  IN  THE  FORM  YYMMDD  TO  ALLOWN 


69 

70 

!  *  POR  SORTING  ON 

• 

1 

THE  6 

FIELD  CODE 

4 

4 

i 

3 

71 

!  01  SEQUENCED-DATE. 

i 

12 

03  YY-DATE 

PIC 

XX. 

73 

03  MM-DATE 

PIC 

XX. 

j 

1 

74 

75 

03  DD-DATE 

• 

PIC 

XX. 

4 

\ 

-1 

1 

*  SEARCH  KEY  IS  THE  INDEX  INTO  THE  INDEXEXED  SEQUNTIAL 

*  DATA  BASE  IT  CONSISTS  OF  A  SOCIAL  SECURITY  NUMBER 

*  AND  SOME  RECORD  TYPE  (A,B,T,  OR  V) 


*  THE  A  RECORD  IS  THE  MASTER  RECORD  FOR  THE  ACES  PILE 

*  A  SOLDIER  MUST  HAVE  AN  A  RECORD  TO  HAVE  A  B.T,  OR  V 

*  TYPE  OP  RECORD  INDEXED  BY  NNNNNNNNNA  WHERE  N  IS  A 

*  NUMERIC  VALUE 

* 

*  THE  Z-RECORD  IS  ALWAYS  MAINTAINED  ON  THE  ACES  MASTER  PILE 

*  IT  CARRIES  THE  RECORDS  COUNTS,  AND  OTHER  FILE  INFORMATION 

*  CONSULT  SYSTEM  DOCUMENTATION  FOR  RECORD  LAYOUT 

*  INDEX  FOR  Z  RECORD  IS  OOOOOOOOOZ 
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05 

SSN  PIC  9(9). 

94 

05 

RECORD-TYPE  PIC 

X 

VALUE 

95 

03  INTIALIZED-DATE. 

96 

05 

INTIALIZED-YY 

PIC 

99. 

97 

05 

INTIALIZED-MM 

PIC 

99. 

98 

05 

INTIALIZED-DD 

PIC 

99. 

99 

03  LAST-MODIFIED-DATE. 

;i-KJ!x:0RD. 

03  SSN-TYPE. 


05  LAST-MODIPIED-YY  PIC  99. 

05  LAST-HODIPIED-MM  PIC  99. 

05  LAST-MODIPIED-DD  PIC  99. 

03  RECORD-COUNTS. 

05  NUMBER-OP-A-RECORDS  PIC  9(7). 

05  NUMBER-OP-B-RECORDS  PIC  9(7). 

05  NUMBER-OP-T-RECORDS  PIC  9(7). 

05  NUMBER-OP-V -RECORDS  PIC  9(7). 

05  TOTAL-RECORDS  PIC  9(11). 

THE  POLLOWING  ARE  THE  PRINT  LINES  POR  THE  STATUS  REPORT 


STATUS-REPORT. 

03  LINE-1 . 

05  FILLER  PIC  X(40)  VALUE  SPACES. 

05  FILLER  PIC  X(40)  VALUE  ’STATUS  REPORT 
'  PILE'. 

03  LINE-2. 

05  FILLER  PIC  X(50)  VALUE  SPACES. 

05  FILLER  PIC  X(8)  VALUE  'TIME  ’. 

05  SHOW-TIME  PIC  X(6). 

03  LINE-3. 

05  FILLER  PIC  X(50)  VALUE  SPACES. 

05  FILLER  PIC  X(8)  VALUE  'DATE  '. 

05  SHOW-DATE  PIC  99/99/99. 

03  LINB-4. 

05  FILLER  PIC  X(23)  VALUE  SPACES. 

05  FILLER  PIC  X(ll)  VALUE  'TYPE  RECORD'. 
05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(13)  VALUE  'FREQUENCIES'. 
05  FILLER  PIC  X(23)  VALUE  SPACES. 


ACES  MASTER 


FILLER 

FILLER 


SPACES. 


05  FILLER  PIC  X(23)  VALUE  'DATE  INTIALIZED 
05  SHOW-INTIALIZBD-DATE  PIC  99/99/99. 

03  LINE-5. 

05  FILLER  PIC  X(32)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'A'. 

05  SHOW-A-COUNT  PIC  ZZZ,ZZ9. 

03  LINB-6. 

05  FILLER  PIC  X(32)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'B'. 

05  SHOW-B-COUNT  PIC  ZZZ,ZZ9. 


A-4 


141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 


03  LINE-7. 

05  FILLER  PIC  X(32)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'T'. 

05  SHOW-T-COUNT  PIC  ZZZ,ZZ9. 

05  FILLER  PIC  X(25)  VALUE  SPACES. 

05  FILLER  PIC  X (20)  VALUE  'DATE  UST  MODIFIED 
05  ^jHOW-MODIFY-DATE  pic  99/99/99. 

03  LINE-8. 

05  FILLER  PIC  X(32)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'V. 

05  SHOW-V-COUNT  PIC  ZZZ,2Z9. 

03  LINE-9. 

05  FILLER  PIC  X(46)  VALUE  SPACES. 

05  FILIJIR  PIC  X(6)  VALUE  ' - '. 

03  LINE-10. 

05  FILLER  PIC  X(29)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'TOTAL*. 

05  SHOW-SUM-ABTV-RECORDS  PIC  ZZZ,ZZ-,999. 

PROCEDURE  DIVISION. 

MAIN-LINE. 

PERFORM  OPEN-FILE-WRITE-2 -RECORD. 

PERFORM  SET-UP-ACES-MASTER-PILE. 

PERFORM  SHUT-DOWN-ACES-MASTER-FILE. 

STOP  RUN. 

« 

INTIALIZE-DATE-TIME. 

»  »»«««««»«««*««««««««««#««««««»*  * 

*  WHEN  RUN  ON  A  UNIVAC  THE  FOLLWING  TWO  STATEMENTS 

*  SHOULD  BE  DELETED  THEN  SUBSTITUTE  THIS 

ACCEPT  MACHINE-DATE-TIME  FROM  DATE-TIME. 

«  ♦♦♦■IHHUHHHHUHK'IHUHK********************** 

* 

MOVE  CORRESPONDING  MACHINE-DATE  TO  SEQUENCED-DATE. 

« 

OPEN-FILE-WRITE-Z-RECORD. 

PERFORM  INTIALIZE-DATE-TIME. 

OPEN  OUTPUT  ACES-MASTER-FILE, 

PR INTER 1 . 

MO\'E  ZEROES  TO  SSN  OF  Z-RECORD,  RECORD-COUNT?  OF  Z-RECORD, 
SSN  OF  SEARCH-KEY. 

MOVE  'Z*  TO  RECORD-TYPE  OF  SEARCH-KEY. 

MOVE  SEQUENCED-DATE  TO  LAST-MODIFIED-DATE,  INTIALIZED-DATE 
OF  Z-RECORD. 

MOVE  SEARCH-KEY  TO  MASTER-SEARCH-KEY. 

DISPLAY  '  Z  WRITTEN  -  Z-RECORD  UPON  PRINTER. 

WRITE  MASTER-RECORD  PROM  Z-RECORD, 

INVALID  KEY  DISPUY  'ERROR  ON  Z  WRITE*  UPON  PRINTER. 
CLOSE  ACES-MASTER-FILE. 

DISPLAY  *  ACES  MASTER  SHUT  DOWN*  UPON  PRINTER. 
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191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 


* 


OPEN  INPUT  ACSS-MASTEH-PILB. 

MOVE  ZEROES  TO  SSN  OP  SEARCH-KEY. 

MOVE  'Z'  TO  RECORD-TYPE  OF  SEARCH-KEY. 

MOVE  SEARCH4KEY  TO  MASTER -SEARCH-KEY. 

READ  ACES-HASTER-FILE  INTO  Z-RECORD, 

INVALID  KEY  DISPLAY  *2  READ  ERROR’  UPON  PRINTER. 
DISPUY  Z-RECORD,  ’TESTER*  UPON  PRINTER. 

CLOSE  ACES-MASTER-FILE. 

SET-U^-ACES-MASTER-PILE. 

*  Th_3  ROUTINE  WILL  BE  THE  FIRST  STEP  IN  ANY  RUN 

*  INVOLVING  THE  ACES-MASTER-FILE. 

* 

OPEN  I-O  ACES-MASTER-FILE. 

MOVE  ZEROES  TO  SSN  OP  SEARCH-KEY. 

MOVE  'Z'  TO  RECORD-TYPE  OF  SEARCH-KEY. 

MOVE  SEARCH-KEY  TO  MASTER-SEARCH-KEY. 

READ  ACES-MASTER-FILE  INTO  Z-RECORD, 

INVALID  KEY  DISPLAY  ’Z  READ  ERROR’  UPON  PRINTER. 
PERFORM  PRINT-STATUS-REPORT. 

PRINT-STATUS-REPORT. 

*  MOVE  THE  DATA  OFF  Z-RECORD  TO  REPORT  PRINT  LINES 

MOVE  INTIALIZED-DATE  OF  Z-RECORD  TO  SHOW-INTIALIZED-DATE 

OF  STATUS -REPORT. 

MOVE  LAST-MODIFIED-DATE  TO  SHOW-MODIFY-DATE. 

MOVE  NUMBER-OF-A-RBCORDS  TO  SHOV-A-COUNT. 

MOVE  NUMBER-OF-B-RECORDS  TO  SHOW-B-COUNT. 

MOVE  NUMBER-OP-T -RECORDS  TO  SHOW-T -COUNT. 

MOVE  NUMBER-OP-V -RECORDS  TO  SHOW-V -COUNT. 

HOVE  TOTAL-RECORDS  TO  SHOW-SUM-ABTV-RECORDS. 

* 

*  GET  THE  CORRECT  TIME  AND  DATE 

*  PLACE  TIME,  DATE  INTO  REPORT  PAGE 
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227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 
255 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 
267 

EOF: 267 
0:> 


PERFORM  INTIALIZE-DATE-TIME. 

MOVE  MACHINE-TIME  TO  SHOW-TIME  OP  STATUS-REPORT  . 

MOVE  SEQUENCED-DATE  TO  SHOW-DATE  OP  STATUS -REPORT. 

*  WRITE  THE  STATUS  REPORT 

*  WRITE  PRINT-LINE  PROM  LINE-1  OF  STATUS-REPORT  AFTER 

*  HEAD-OP-PORM. 

WRITE  PRINT-LINE  PROM  LINE-2  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-3  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-4  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-5  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-6  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-7  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-8  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-9  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-10  OF  STATUS-REPORT  AFTER  2  LINES. 
SHUT-DOWN-ACES-MASTER-PILE. 

*  A  STATUS  REPORT  WILL  BE  GENERATED 

*  A  MODIFIED  Z-RECORD  WILL  BE  REWRITTEN 

*  ACES-MASTEFILE  WILL  BE  CLOSED 
PERFORM  PRINT-STATUS-REPORT. 

PERFORM  RE-WRITE-Z-RECORD. 

CLOSE  ACES-MASTER-FILE,  PR INTER 1 . 

« 

RE-WRITE-Z-RECORD. 

MOVE  SEQUENCED-DATE  TO  LAST-MODIFIED-DATE  OP  Z-RECORD. 

MOVE  ZEROES  TO  SSN  OF  SEARCH-KEY. 

MOVE  'Z'  TO  RECORD-TYPE  OF  SEARCH-KEY. 

MOVE  SEARCH-KEY  TO  MASTER-SEARCH-KEY. 

REWRITE  MASTER-RECORD  PROM  Z-RECORD 

INVALID  KEY  DISPLAY  ’Z  RECORD  NOT  WRITTEN’ 

UPON  PRINTER. 

WRITE-EOP -MARKER. 

MOVE  SPACES  TO  MASTER-RECORD. 

MOVE  999999999  TO  SSN  OF  SEARCH-KEY. 

MOVE  ’Z’  TO  RECORD-TYPE  OF  SEARCH-KEY. 

MOVE  SEARCH-KEY  TO  MASTER -SEARCH-KEY. 

WRITE  MASTER-RECORD 

INVALID  KEY  DISPLAY  'EOF  NOT  WRITEN'  UPON  PRINTER. 
MOVE  SEARCH-KEY  TO  MASTSR-SEARCH-KEY. 

*  THIS  CREATES  AN  END  OP  PILE  MARKER  RECORD 

*  DENOTED  BY  RECORD  KEY  999999999Z 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


IDENTIFICATION  DIVISION. 

PROGRAM-ID.  TRADOC. 

INSTALLATION.  ABERDEEN  PROVING  GROUND,  ND  ,  21010. 

DATE- WRITTEN.  MAY  1980. 

SECURITY.  NO  SECURITY  CLEARANCE. 

REMARKS.  THE  PURPOSE  OF  THIS  PROGRAM  IS 
PRODUCE  TWO  TYPES  OF  OUTPUT 

I)  THOSE  SOLDIERS  WHO  HAVE  BEEN  ACCEPTED  INTO 
THE  PROGRAM  IB  SBLECTABLE-ABLE-TBST-SCORE 
OF  LESS  TRAN  30  OR  ECL-PRETEST 
OF  LESS  TRAN  70 

II)  THOSE  SOLDIERS  WHO  HAVE  HOT  BEEN  ACCEPTED 
INTO  THE  PROGRAM  (WHICH  SHOULD  BE  FEW) 
AND  HAVE  HIGHER  ECL  PRB  TEST  SCORES 
AND  SELECT-ABLB-TEST-SCORES 
ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER .  UNIVAC-1 1 08. 

OBJECT-COMPUTER.  UNIVAC-1 108. 

INPUT-OUTPUT  SECTION. 

PILE-CONTROL. 

SELECT  ACES-HASTER-FILE  ASSIGN  TO  MASS-STORAGE  MASTER 
ORGANIZATION  IS  INDEXED, 

ACCESS  MODE  IS  RANDOM 
FILE-LIMIT  IS  20000 
ACTUAL  KEY  IS  SEARCH-KEY. 

SELECT  PRINTER1  ASSIGN  TO  PRINTER. 

SELECT  TRADOC  ASSIGN  TO  CARD-READER  TRDATA. 

DATA  DIVISION. 

FILE  SECTION. 

« 

PD  ACES-MASTER-FILE 

LABEL  RECORDS  ARE  STANDARD. 

RECORD  CONTAINS  300  CHARACTERS, 

BLOCK  CONTAINS  30  RECORDS. 

* 

01  MAST*"'  -RECORD. 

03  bfciARCH-KBY. 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X. 

03  DATA-AREA  PIC  X(290). 

FD  TRADOC 

LABEL  RECORDS  ARE  STANDARD, 

RECORD  CONTAINS  80  CHARACTERS. 

01  TRADOC -RECORD. 

02  TRADOC-RECORD-DUMMY. 

05  LAST-NAME  PIC  X(12). 

05  FIRST-INIT  PIC  XX. 

05  SSN  PIC  9(9). 
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50s 
51s 
52  s 
53s 

54  s 

55  s 

56  s 
57s 
58s 
59s 
60s 
61s 

62  s 

63  s 

64  s 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
01 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 


02  TRADOC-DATA-AREA. 

05  SEX  PIC  X. 

05  RACE  PIC  X. 

05  PRINART>LAHGUAQB  PIC  X. 

05  ESL  PIC  X. 

05  EDOCATIOH-LEVEL  PIC  X. 

05  MILITARY-COMPONENT  PIC  X. 

05  MEHTAL-CATEGORl  PIC  X. 

05  MOS  PIC  X(3)* 

05  SBLECT-ABLB-TEST-SCORE  PIC  XX. 
05  SELECTABLB-SUB-SCORE. 

07  SS-1  PIC  99. 

07  SS-2  PIC  99. 

07  SS-3  PIC  99. 

07  SS-4  PIC  99. 

07  SS-5  PIC  99. 

07  SS-6  PIC  99. 

07  SS-7  PIC  99. 

07  SS-8  PIC  99. 

07  SS-9  PIC  99. 

07  SS-10  PIC  99. 

07  SS-11  PIC  99. 

07  SS-1 2  PIC  99. 

07  SS-1 3  PIC  99. 

07  SS-1 4  PIC  99. 

07  SS-1 5  PIC  99. 

05  GRADE-LEVBL-CHANGE  PIC  X. 
05  CHANGE-IN-GRADE  PIC  99. 

05  ECL-PRE-TEST  PIC  99. 

05  BCL-POST-TEST  PIC  99. 

05  DAYS-ENROLLED  PIC  XX. 

05  SUCCESS  PIC  X. 

05  DISCHARGE  PIC  X. 

05  INSTALATION-IDENT  PIC  99. 
05  MONTH  PIC  X. 

05  YEAR  PIC  X. 

PD  PRINTER1 

LABEL  RECORDS  ARE  OMITTED 

DATA  RECORD  IS  PRINT-LINE. 

01  PRINT-LINE. 

03  CARRIAGE-CONTROL-CHARACTBR  PIC  X. 

03  MESSAGE-1  PIC  X(20). 

03  PRINT-DATA  PIC  X(101). 

WORKING-STORAGE  SECTION. 


94  s 

95  s 


77  DUMMY-COUNTER  PIC  9(5)  VALUE  0. 

* 


96; 

97: 

98; 

99; 

100; 

101; 

102: 

103: 

104: 

105; 

106: 

107: 

108: 

109: 

110: 

111; 

112: 

113: 

114: 

115: 

116: 

117; 

118; 

119: 

120: 

121: 

122: 

123: 

124: 

125; 

126: 

127; 

128: 

129: 

130; 

131: 

132: 

133: 

134: 

135: 

136; 

137: 

138: 

139: 

140: 


77  R-ME3SAGE  PIC  X(20)  VALUE  ‘REJECTED- 

*  THESE  ARE  THE  COUNTERS  FOR  THE  RECORDS 
01  A-RECORD-COUNTERS. 

05  NEW-A-RECORDS-WRITTEN  PIC  9(9)  VALUE  0. 

05  OLD-A-RECORDS-REWRITTEN  PIC  9(9)  VALUE  0. 

01  B-RECORD- COUNTERS. 

05  NEW-B-RECORDS-WRITTEN  PIC  9(9)  VALUE  0. 

05  OLD-B-RECORDS-REWRITTEN  PIC  9(9)  VALUE  0. 

« 

01  PATICIPANT-COONTERS. 

05  BSEP-LlT-STATUS-1  PIC  9(9)  VALUE  0. 

05  BSBP-LIT-STATUS-2  PIC  9(9)  VALUE  0. 

05  BSEP-ESL-STATUS-1  PIC  9(9)  VALUE  0. 

05  BSEP-ESL-STATUS-2  PIC  9(9)  VALUE  0. 

*  MACHINE  DATE-TIME  IS  ACCEPTED  PROM  THE  SYSTEM  AND 

*  IS  PRINTED  OUT  WHEN  PILES  ARB  OPENED  AND  CLOSED 
« 

01  MACHINE-DATE-TIME. 

03  MACHINE-DATE. 

05  MM-DATE  PIC  99. 

05  DD-DATE  PIC  99. 

05  YY-DATE  PIC  99. 

03  MACHINE-TIME. 

05  HOUR-DATE  PIC  99. 

05  MIN-DATE  PIC  99. 

05  SEC-DATE  PIC  99. 

« 

*  SEQUENCED  DATE  IS  THE  DATE  IN  THE  FORM  YYMMDD  TO  ALLOWN 

*  FOR  SORTING  ON  THE  6  FIELD  CODE 

» 

01  SBQUENCBD-DATE. 

03  YY-DATE  PIC  99* 

03  MM-DATE  PIC  99- 
03  DD-DATE  PIC  99- 

* 

*  SEARCH  KEY  IS  THE  INDEX  INTO  THE  INDEXEXBD  SEQUNTIAL 

*  DATA  BASE  IT  CONSISTS  OP  A  SOCIAL  SECURITY  NUMBER 

*  AND  SOME  RECORD  TYPE  (A,B,T,  OR  V) 

« 


*  THE  A  RECORD  IS  THE  MASTER  RECORD  FOR  THE  ACES  PILE 

*  A  SOLDIER  MUST  HAVE  AN  A  RECORD  TO  HAVE  A  B,T,  OR  V 

*  TYPE  OP  RECORD  INDEXED  BY  NNNNNNNNNA  WHERE  N  IS  A 

*  NUMERIC  VALUE 
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141 

01  A>RBC0RB. 

142 

02  A-RBCORD-DUHMY. 

143 

03  SSH-TYPE  . 

144 

05 

SSH  PIC  9(9). 

145 

05 

RBCORD-TYPB  PIC  X  VALUE  ‘A*. 

146 

03  MASTBR-FLAOS. 

147 

05 

BSBP-LIT-STATUS  PIC  9. 

148 

88  RO-B-RBCORU  VALUE  0. 

149 

88  BSEP-LIT-PARTIC 

VALUE  1 

• 

150 

88  BSEP<LIT-ROH-PARTIC 

VALUE  2. 

151 

05 

bsbp-esl-status  pic  9. 

152 

88  RO-B-RBCORl) 

VALUE  0. 

153 

88  BSEP-ESL-PARTIC 

VALUE  1. 

154 

88  BSEP-BSL-BOR-PARTIC 

VALUE  2. 

155 

05 

VO-TECH-STATUS  PIC  9. 

156 

88  BO-T-RECORD 

VALUE  0. 

157 

88  VO-TECH-PARTIC 

VALUE  1. 

158 

88  VO-TECH-ROK-PARTIC 

VALUE  2. 

158 

88  VO-TECH-RON-PARTIC 

VALUE  2. 

159 

05 

VEAP-STATUS,  PIC  9. 

160 

88  NO-V-RBCORD 

VALUE 

0. 

161 

88  VEAP-PAHTIC 

VALUE 

1. 

162 

08  VEAP-WITHDRAW-RETURR  VALUE 

2. 

163 

88  VEAP-WITHDRAV-RO-RETURR  VALUE 

3. 

164 

88  VEAP-ROR-PARTIC 

VALUE 

4. 

165 

03  A-RBCORD-STATUS. 

166 

05 

MILPERCER-FLAG  PIC  9. 

167 

88  MILPERCBR-PRBP'^ 

VALUE 

1. 

168 

05 

DMDC-FLAG  PIC  9. 

169 

88  DMDC-PRBSBRT 

VALUE 

1. 

170 

05 

TSC-FLAG  PIC  9. 

171 

88  TSC-PRESERT 

VALUE 

1. 

172 

05 

EREC-FLAG  PIC  9* 

173 

88  EREC-PRESERT 

VALUE 

1. 

174 

05 

CREATE-DATE. 

175 

07  CREATE-YY  PIC  99. 

176 

07  CREATE-MM  PIC  99. 

177 

07  CHEATE-DD  PIC  99. 

178 

05 

LAST-MOD-DATE. 

179 

07  LAST-MOD-YY  PIC  99. 

180 

07  LAST-MOD-MM  PIC  99. 

181 

07  LAST-MOD-DD  PIC  99. 

182 

03  COHTROL-INPORHATIOll. 

103 

05 

DOB. 

184 

07  DOB-YY  PIC  99. 

185 

07  DOB-MM  PIC  99. 

186 

07  DOB-DD  PIC  99. 

187 

05 

SEX  PIC  X. 

188 

88  HALE  VALUE  'M* . 

189 

88  FEMALE  VALUE  ’F*. 
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190i 

03  NILPBRCSR-BATA. 

191 1 

07  SK  PIC  X. 

192t 

07  RACB  PIC  X. 

193i 

07  HARST  PIC  X. 

194i 

07  DOB  PIC  X(6). 

195! 

07  TERMS  PIC  X. 

196t 

07  BTSDT  PIC  X(6). 

197 

07  EGPCD  PIC  X. 

198 

07  BPBST  PIC  XXXX. 

199 

07  PAYOR  PIC  X. 

200 

07  DOR  PIC  X(6). 

201 

07  APQSC  PIC  XX. 

202: 

07  CIVBD  PIC  X. 

203: 

07  PROS  PIC  X(5). 

204: 

07  DMOS  PIC  X(5). 

203: 

07  TYPLA  PIC  XX. 

206: 

07  DATLA  PIC  X(6). 

207: 

07  PSVCI  PIC  X. 

208: 

07  EERVA  PIC  XXX. 

209: 

07  CMP  PIC  XX. 

210: 

07  AITDT  PIC  XXX. 

211: 

07  GTSCR  PIC  XXX. 

212: 

07  PQDES  PIC  X(4). 

212 

07  PQDES  PIC  X(4). 

213 

07  PSQDT  PIC  X(4). 

214 

07  PQSCR  PIC  XXX. 

215 

07  PQPER  PIC  XX. 

216 

07  SM03  PIC  X(5). 

217 

07  FILLER  PIC  X(4). 

218 

03  DHDC-DATA  PIC  X(124). 

219 

03  TSC-DATA  PIC  X(56). 

220 

• 

221 

• 

222 

• 

COHSULT  DOCUMENTATION  FOR  FILE  LAYOUT 

223 

« 

ALL  ARE  REFERENCED  BY  NNNNNNNNRB 

WHERE 

224 

• 

NUMERIC  VALUE 

225 

• 

226 

01 

B-RECORD. 

227 

02  B-RBCORD-DUMMY. 

228 

03  SSN-TYPE. 

229 

05  SSN  PIC  9(9). 

230 

05  RECORD-TYPE  PIC  X  VALUE 

'B'. 

231 

03  B-RBCORD-STATUS. 

232 

05  CREATB-DATE. 

233 

07  CRBATE-YY  PIC  99. 

234 

07  CREATE-MK  PIC  99. 

235 

07  CREATE-DD  PIC  99. 

236 

05  MODIFY-DATE. 

237 

07  HODIFY-YY  PIC  99. 

238 

07  MODIPY-MH  PIC  99. 

239 

07  MODIPY-DD  PIC  99. 

240 

05  LAST-NAME  PIC  X(l2). 

241 

05  PIRST-INIT  PIC  X. 

IS 
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242 

243 

244 

245 

246 

247 

248 

249 

250 

251 
232 


276 

277 

278 

279 

280 
281 
282 
233 
284 


03  BSBP-DATA. 

05  SBX  PIC  9. 

05  RACE  PIC  X. 

05  PRIMARY-LARQUAGE  PIC  X. 

05  BST.  PIC  X. 

05  EDUCATION-LEVEL  PIC  X. 

05  MILITARY-COMPORBRT  PIC  X. 

05  MEHTAL-CATEOORY  PIC  X. 

05  EOS  PIC  X(3). 


05  SBLECT-ABLE-TEST-SCORE 
05  SBLECTABLE-SUB-SCORB. 


PIC  XX. 


253 

07 

SS-1 

PIC 

99. 

254 

07 

SS-2 

PIC 

99. 

255 

07 

SS-3 

PIC 

99. 

256 

07 

SS-4 

PIC 

99. 

257 

07 

SS-5 

PIC- 

99. 

258 

07 

SS-6 

PIC 

99. 

259 

07 

SS-7 

PIC 

99. 

260 

07 

ss-a 

PIC 

99. 

261 

07 

SS-9 

PIC 

99. 

262 

07 

SS-10 

PIC 

99. 

263 

07 

SS-11 

PIC 

99. 

264 

07 

SS-1 2 

PIC 

99. 

265 

07 

SS-1 3 

PIC 

99. 

266 

07 

SS-1 4 

PIC 

99. 

267 

07 

SS-1 5 

PIC 

99. 

268 

05 

GRADE-LBVEL-CHANGE 

PIC 

X. 

269 

05 

CHANGE-IN- 

GRADE 

PIC 

99 

270 

05 

ECL 

-PRE-TEST 

PIC 

99 

271 

05 

ECL 

-POST-TEST 

PIC 

99 

272 

05 

DAYS-ERROLLED 

PIC 

XX 

273 

05 

SUCCESS 

PIC 

X. 

274 

05 

DISCHARGE 

PIC 

X. 

275 

05 

INSTALLATION-IDBNT 

PIC  XX. 


05  MOUTH  PIC  X. 
05  YEAR  PIC  X. 


*  THE  Z-RECORD  IS  ALWAYS  MAINTAINED  ON  THE  ACES  MASTER  FILE 

*  IT  CARRIES  THE  RECORDS  COUNTS,  AMD  OTHER  PILE  INFORMATION 

*  CONSULT  SYSTEM  DOCUMENTATIOH  FOR  RECORD  LAYOUT 

*  INDEX  FOR  Z  RECORD  IS  OOOOOOOOOZ 

* 

01  Z-RECORD. 


'Z*. 


285 

03  SSN-TYPE. 

286 

!  05 

SSN  PIC  9(9). 

287 

!  05 

RECORD-TYPE  PIC 

X 

VALUE 

288 

!  03  INTIALIZED-DATE. 

289 

05 

INTIALIZED-YY 

PIC 

99. 

290 

05 

INTIALIZED-MM 

PIC 

99. 

291 

05 

INTIALIZED-DD 

PIC 

99. 
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292 1 
293i 
294: 
295: 
29C: 
297: 
298: 
299: 
300: 
301; 
302: 
303: 
304: 


03  LAST-MODIfllD-DATE. 

05  LAST-«ODiriED-TY  PIC  99. 

05  US!L-ltOOIFIIl>-mi  PIC  99. 

05  LAST-NOOIPIBD-CD  PIC  99. 

03  HicoRO-couirrs. 

05  RUNBER-OP-A-RECOROS  PIC  9(7). 

05  RUKBBR-OP^B-RBCORDS  PIC  9(7). 

05  miHBER-OP-T^RECORDS  PIC  9(7). 

05  NUMBER-OP-V-RECORDS  PIC  9(7). 

05  TOTAL-RECORDS  PIC  9(ll). 

* 

*  THE  POLLOVIHO  ARE  THE  PRIRT  LINES  POR  THE  STATUS  REPORT 


305:  01  STATUS-REPORT. 

306  ;  03  LIHE-1 . 

307:  05  FILLER  PIC  X(20) 

308:  05  FILLER  PIC  l(40) 

309:  -  '  PILE*. 

310;  03  LINE-2. 

311;  05  FILLER  PIC 

312;  05  FILLER  PIC 

313:  05  SHOW-TIME 

314:  03  LINE-3. 

315:  05  FILLER  PIC 

316;  05  FILLER  PIC 

317;  05  SHOW-DATE 

03  LIHB-4. 


339 

340 


VALUE 

VALUE 


SPACES. 

•STATUS 


REPORT  ON  ACES  MASTER 


X(30) 

X(8) 

PIC 


VALUE 

VALUE 

X(6). 


SPACES. 

•TIME 


X(30)  VALUE 
X(8)  VALUE 
PIC  99/99/99. 


SPACES. 

•DATE 


319; 

05 

FILLER 

PIC 

X(3)  VALUE  SPACES. 

320; 

05 

FILLER 

PIC 

X(11)  VALUE  'TYPE  RECORD •. 

321: 

05 

FILLER 

PIC 

X(9)  VALUE  SPACES. 

322: 

05 

FILLER 

PIC 

X(13)  VALUE  • FREQUENCIES •. 

323: 

05 

FILLER 

PIC 

X(23)  VALUE  SPACES. 

324: 

05 

FILLER 

PIC 

X(23)  VALUE  'DATE  INTIALI2ED 

325: 

05 

SHOW-INTIALIZED-DATE  PIC  99/99/99. 

326; 

03  LINE-5. 

327: 

05 

FILLER 

PIC 

X(12)  VALUE  SPACES. 

328: 

05 

FILLER 

PIC 

X(l5)  VALUE  •A^. 

329; 

05 

SHOW-A- 

•COURT 

PIC  ZZZ.ZZ9. 

330: 

03  LINE-6. 

X(12)  VALUE  SPACES. 

331; 

05 

FILLER 

PIC 

332; 

05 

FILLER 

PIC 

X(l5)  VALUE  •B^. 

333: 

05 

SHOW-B-COUNT 

PIC  ZZZ.ZZ9. 

334: 

03  LINE-7. 

335: 

05 

FILLER 

PIC 

X(12)  VALUE  SPACES. 

336: 

05 

FILLER 

PIC 

X(15)  VALUE  •!'. 

337: 

05 

SHOW-T- 

•COUNT 

PIC  ZZZ.ZZ9. 

338; 

05 

FILLER 

PIC 

X(25)  VALUE  SPACES. 

05  FILLER  PIC  X(20)  VALUE  ' DATE  LAST  MODIFIED  ’ . 
05  SHOW-MODIFY-DATE  PIC  99/99/99. 
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54tt 

542t 

343» 

344« 

345t 

346: 

347: 

348: 

349: 

350: 

351: 

352: 

353: 

354: 

355: 

356: 

357: 

358: 

359: 

360: 

361: 

362: 

363: 

364: 

365: 

366: 

367: 

368: 

369: 

370: 

371: 

372: 

373; 


03  LIlfB-8, 

05  riLLSR  PIC  X(12)  TALUI  SPACES. 

05  FILLER  PIC  X(15)  VALUE  ’V. 

05  SHOV-V-COtniT  PIC  SZZ,ZZ9. 

03  LIRE-9. 

05  FILLER  PIC  X(28)  VALUE  SPACES. 

05  FILLER  PIC  X(6)  VALUE* - '. 

03  LIES-10. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  ’TOTAL*. 

05  SHOV-SUK-ABTV-RBCORDS  PIC  ZZZ.ZZZ,999. 
01  CRBATBO-A-RBCORO-FUQ  PIC  9* 

88  OLU-A'RBCORO  VALUE  0. 

88  EXtf-A-RSCORS  VALUE  1 . 

01  CREATEU-B-RBCORO-FUG  PIC  9. 

88  OLD-B-RBCORD  VALUE  0. 

88  REtf-B-RECORB  VALUE  1 . 

01  TRABOC-FILE-FLAG  PIC  9. 

88  B0F«TRAB0C-BATA-TAPB  VALUE  1 . 

01  RECORB-COURTERS. 

03  TRABOC-HBCOHB-COUHTBR  PIC  9(9)  VALUE  0. 

03  REJECTEB-TRABOC-COUHTBR  PIC  9(9)  VALUE  0. 
03  CREATEB-A^COURTER  PIC  9(9)  VALUE  0. 

05  CRBATBB>B>COURTSR  PIC  9(9)  VALUE  0. 

01  TRABOC>RECORB-FUG  PIC  9> 

88  RECORB^REJECTEB  VALUE  1 . 

PROCEBURE  BIVISIOR. 

NAZH^LIRS. 

OPER  OUTPUT  PRIHTBR1 . 

PERFORM  SET-UP-ACES-MASTSB-FILE. 

CLOSE  ACES-HASTSR-FILE. 

OPER  OUTPUT  ACES-HASTER-FILE. 

PERFORM  SET-UP-TRABOC-DATA-TAPE. 


374: 

375: 

376: 

377: 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 


PERFORM  PROCESS-SOLBIER  THROUGH  IRPUT-TRABOC-RECORB 

UHTIL  EOP-TRABOC-BATA-TAPE. 

CLOSE  ACES-MASTER>FILE. 

OPEN  I-O  ACES-MASTBR-FILB. 

*  CHARGE  THE  10  TIMES  TO  EOF  MARKER  AFTER  TESTING  JNH 
PERFORM  SHUT-D0WN-ACES-MASTER~F1LE. 

CLOSE  TRABOC. 

STOP  RUN. 

SBT-UP-TRABOC-BATA-TAPE . 

OPEN  INPUT  TRABOC. 

CLOSE  TRABOC. 

OPER  INPUT  TRABOC. 

MOVE  0  TO  TRABOC-FILE-FLAG. 

PERFORM  IRPUT-TRABOC-RECORB, 
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390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 
409 
<10 
411 
412: 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 


SBT>UP-4CB3-XASm-PILI. 

•  THIS  BOOTHS  VILL  St  TKS  FIBST  8TSP  IR  ART  BUR 

«  IRVOLVIRO  THE  ACSS-RASTBB-PILB. 

« 

OPER  I-O  ACBSoRASTSB-PILB. 

ROVE  SSBOES  TO  SSR  OP  SBABCR-KBT. 

ROVE  *2*  TO  RBCOBE-TTPE  OP  SSABCR-KST. 

BEAD  ACBS-HASTEB-PILB  ZRTO  Z-HECORS, 

IRVALID  KET  DISPUT  *  RO  Z  RECORD*,  Z-RBCORD 
UFOM  PRIRTES. 

PEBPORR  PRIRT-STATOS-REPORT. 

PRIRT-STATOS-RIPORT. 

•  MOVE  THE  DATA  OPP  Z-RSCORD  TO  REPORT  PRIRT  LIRSS 

HOVE  IHTZALIZSD-DATS  OP  Z^RSCORD  TO  SHOV-IRTIALIZSD«DATB 

OP  STATUS-REPORT. 

ROVE  UST-HODIPIED-DATB  TO  SROV-RODIPT-DATE. 

ROVE  RURBER-0P-A-REC0RD8  TO  SHOV-A-COURT. 

ROVE  RURBER-OF-B-RECORDS  TO  SHOV-B-COORT. 

ROVE  HURBER-OP-T-RECORDS  TO  SHOV-T-COURT . 

ROVE  RURBSR-OF-V-RECORDS  TO  SHOV-V-COURT. 

ROVE  TOTAL-RECORDS  TO  SHOV-SUR-ABTV-RECORDS. 

« 

•  GET  THE  CORRECT  TIRE  ARD  DATS 

•  PUCE  TIRE,  DATE  INTO  REPORT  PAGE 
PERFORR  INTIALIZE-DATE-TIRE. 

ROVE  RACHIRE-TIRB  TO  SHOV-TIRR  OF  STATUS-REPORT  . 

ROVE  SEQOERCED-DATE  TO  SHOW-DATE  OF  STATUS-REPORT. 

•  WRITS  THE  STATUS  REPORT 

•  WRITE  PRIHT-LIHB  FROR  LIHB-1  OF  STATUS-REPORT  AFTER 

•  PAGE-TOP  LINES. 

WRITE  PRINT-LINE  FROR  LINB-2  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROR  LINB-3  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROR  LINS-4  OF  STATUS-REPORT  AFTER  2  LINES. 

WHITE  PRINT-LINE  FROR  LINE-5  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROR  LIRE-6  OF  STATUS-REPORT  AFTER  2  LINES. 
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426 

427 

42a 

429 

430 
451 

432 

433 

434 

435 

436 

437 

43a 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 


VBITB  PRlllT-LIin  FROX  LIRS-7  OF  STATOS-RKPORf  AFTER  2  LIRBS. 
VRITB  FRIRT-LIRE  FROM  URl-O  OF  STATOS-REPORT  AFTER  2  URES. 
VRXTE  PRIET-LZItE  FROR  LXHE-9  OF  STATUS-REPORT  AFTER  2  UEBS. 
WRITE  PRIET-LIRE  FROH  UEE-IO  OF  STATUS-REPORT  AFTER  2  LZRES. 

ZRTIALXZB-RATB-TZIIB. 

ACCEPT  MACHXES-RATE-TZIIE  FROR  DATE-TXRE. 

ROVE  CORRESPOEDINO  KACKXEB-DATB  TO  SEQUEECER-DATB. 


SHUT-DOWN-ACBS-HASTBR-FXLS. 

*  A  STATUS  REPORT  VXU.  BE  OBNBRATSR 

*  ALL  COURTBRS  VXLL  BE  UPRATED 

*  A  RORXFXBR  Z-RECORR  WXLL  BE  REVRXTTEE 

*  ACBS-RASTEFILB  WILL  BE  CLOSER 
PERFORX  UPRATE-COUETERS. 

PBRFORR  PRXRT-STATUS-REPORT. 

PBRFORR  VRITB-Z-RECORR. 

CLOSE  ACES-NASTER-FILB. 

UPDATE— COURTBRS • 

*  THE  PURPOSE  OF  THIS  ROUTIEB  XS  TO  UPDATE  THE  Z-RECORR 

*  COUHTERS 

ADR  EBV-A-RECORRS-VRITTEE  TO  RUMBBR-OF-A-RECORDS. 

ADD  EEW-B-RBCORDS-VRITTEE  TO  RUMBER-OF-B-RECORRS . 
RISPUT  *  *,  EEV-A-REC0RR8-VRITTBE»  'HEW  A  RECS' 

UPOE  PRIETER. 

DISPUY  '  •,  OLD-A-RECORDS-REWRXTTEE»  ’OLD  A  RECS’ 

UPOE  PRXETSR. 

DISPLAY  '  HFV-B-RBCORRS-VRITTBE,  'HEW  B  RECS' 

UPOE  PRIETBR. 

DISPLAY  '  \  OLD-B-RfiCORDS-REHRITTBE,  'OLD  B  RECS* 

UPOE  PRXETER. 

DISPLAY  '  BSBP-LIT-STATUS-I ,  ’BSEP  LIT  STATUS  T 
UPOE  PRIETBR. 

DISPUY  '  BSBP-LIT-STATU5-2,  ’BSBP  LIT  STATUS  2* 
UPOE  PRIETBR. 

DISPUY  ’  BSBP-BSL-STATUS-1 ,  ’BSEP  ESL  STATUS  1' 
UPOE  PRIETBR. 

DISPUY  '  BSEP-BSL-STATUS-2,  'BSBP  ESL  STATUS  2' 
UPOE  PRIETBR. 

MOVE  0  TO  TOTAL-RECORDS. 

ADD  EUXBER-OF-A-RECORDS  TO  TOTAL-RECORDS. 

ADD  RUMBER-OF-B-RECORDS  TO  TOTAL-RECORDS. 

ADD  EUNBBR-OF-T-RBCORDS  TO  TOTAL-RECORDS. 

ADD  EUMBER-OF-V-RECORDS  TO  TOTAL-RECORDS, 
VRITB-Z-RBCORD. 

MOVE  SBQUEECED-DATE  TO  UST-MODIFIER-DATE  OF  Z-RECORR. 
MOVE  Z-RBCORD  TO  EASTER-RECORD. 
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476: 
477: 
478: 
479: 
480: 
481: 
482: 
483: 
484: 
485: 
486: 
487: 
^S8: 
489: 
490: 
491; 
492; 
493; 
494; 
495; 
496; 
497; 
498; 
499; 
500; 
501 : 
502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 


REWRITE  MASTER-RECORD 

INVALID  KEY  DISPLAY  ’2  RECORD  NOT  WRITTEN* 
UPON  PRINTER. 


THE  FOLLOWING  PORTION  OP  THE  PROGRAM  IS  STRICTLY  FOR  TRADOC 
PILE  PROCESSING 


*  THIS  IS  THE  TOP  OP  THE  TRADOC  PROCESSING  LOOP 

*  IT  WILL  BE  REPEATED  A  NUMER  OF  TIMES  EQUAL  TO  THE 

*  NUMBER  OP  TRADOC  DATA  RECORDS 


PROCESS-SOLDIER. 

*  HERE  WE  WILL  CHECK  TO  SEE  IP  THE  TRADOC  RECORD  MEETS  MINIMUM 

*  REQUIREMENTS  OTHERWISE  WE  WILL  REJECT  THE  RECORD 

PERFORM  EXAMINE-TRADOC-RECORD. 

« 

*  NEXT  WE  WILL  SEE  IP  THERE  IS  AN  A-RECORD  ON  THIS  SOLDIER  AND 

*  DETERMINE  BY  MEANS  OP  A  SEX  COMPARISON  IP  THE  TWO  ARE  THE 

*  SAME  IE  TRADOC  INPUT  AND  THE  A-RECORD 

IP  NOT  RECORD-REJECTED 

PERFORM  PIND-CREATE-A-RECORD. 

» 

*  NOW  IP  WE  HAVE  POUND-VERIFIED  THE  A-RECORD  OR  CREATED  IT 

*  WE  WILL  TRY  TO  FIND  OR  CREATE  THE  B-RECORD 

*  NOTE  THAT  IF  THE  A-RECORD  IS  VERIFIED  THE  B-RECORD  IS 

*  IPSO  FACTO  VERIFIED 

IP  NOT  RECORD-REJECTED, 

PERFORM  PIND-CHEATE-B-RECORD, 

PERFORM  EXAMINE-B-RECORD, 

PERFORM  RBWRITB-WRITE-A-RECORD, 

PERFORM  REWRITE-WRITE-B'RECORD. 
INPUT-TRADOC-RECORD. 

REAL  TRADOC  AT  END  HOVE  1  TO  TRADOC-PILE-PLAG, 

SUBTRACT  1  PROM  TRADOC-RECOHD-COUNTER. 
ADD  1  TO  TRAUOC-RECORD-COUNTER. 

ADD  1  TO  DUMMY -COUNTER. 

IF  DUMMY-COUNTER  EQUALS  100 

MOVE  ZEROS  TO  DUMMY-COUNTER, 

DISPLAY  TRADOC-RECORD-COUNTER,  *  ' 

SSN  OP  TRADOC-RECORD  UPON  PRINTER. 


*  THIS  IS  THE  PCi'TOM  OP  THE  LOOP  FOR  TRADOC  PROCESSING 
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519;  BXAMINE-TRADOC-RBCORD. 


520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

53a 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 


MOVE  0  TO  TRAL0C-REC0RD-7LAC. 

IP  SSN  OP  TRADOC-RECORD  NOT  NUMERIC 
MOVE  1  TO  TRADOC-RECORD-PLAG. 

IP  SELECT-ABLE-TEST-SCORE  OP  TRADOC-RECORD 
EQUALS  'CR*  MOVE  1  TO  TRADOC-RECORD-PLAG. 

IP  RECORD-REJECTED 

ADD  1  TO  RE JECTED-TRADOC -COUNTER, 

MOVE  SPACES  TO  PRINT-LINE 

MOVE  R-MESSAGE  TO  MESSAGE-1 , 

MOVE  TRADOC-RECORD  TO  PRINT-DATA, 

WRITE  PRINT-LINE  AFTER  1  LINES. 
PIND-CREATE-A-RECORD . 

MOVE  0  TO  CREATED-A-RECORD-PLAG. 

MOVE  SSN  OP  TRADOC-RECORD  TO  SSN  OP  SEARCH-KEY. 

MOVE  'A*  TO  RECORD-TYPE  OP  SEARCH-KEY. 

*  READ  ACES-MASTER-PILE  INTO  A-RECORD 

*  INVALID  KEY  PERFORM  CREATE-A-RECORD-PROM-TRADOC . 
PERFORM  CREATE-A-RECORD-PROM-TRADOC. 

IP  NOT  NEW-A-RECORD 

PERFORM  VERIPY-A-RECORD. 

VERIPY-A-RECORD. 

MOVE  0  TO  TRADOC-RECORD-PLAG. 

IP  SEX  OP  TRADOC-RECORD 

NOT  EQUAL  SEX  OF  A-RECORD 

DISPLAY  'BAD  MATCH  ON  TRADOC  RECORD  A  EXISTS 
UPON  PRINTER, 

MOVE  1  TO  TRADOC-RECORD-PLAG. 
PIND-CREATE-B-RBCORD. 

MOVE  0  TO  CREATED-B-RECORD-PLAG. 

MOVE  'B'  TO  RECORD-TYPE  OP  SEARCH-KEY. 

*  •  READ  ACES-MASTER-PILE  INTO  B-RECORD, 

*  INVALID  KEY  PERFORM  CREATB-A-RECORD-FROM-TRADOC . 
PERFORM  CREATB-B-RECORD-PROM-TRADOC . 

CREATE-A-RECORD-PROM-TRADOC . 

MOVE  1  TO  CREATED-A-RBCORD-PLAG. 

PERFORM  BLANK-OUT-A-RECORD. 

MOVE  SSN  OF  TRADOC-RECORD  TO  SSN  OF  A-RECORD. 

ADD  1  TO  CREATED-A-COUNTER. 

MOVE  SEQUENCED-DATE  TO  CRBATE-DATE  OP  A-RECORD, 

LAST-MOD-DATE  OF  A-RECORD. 

MOVE  999999  TO  DOB  OP  CONTROL-INFORMATION. 

MOVE  SEX  OF  TRADOC-RECORD  TO  SEX  OP  CONTROL-INFORMATION. 


A-19 


562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 


CREATE-B-RECORD-PROM-TRADOC . 

MOVE  1  TO  CREATEL-B-RECORD-PLAC. 

PERPORM  BLAWK-QUT-B-RKORD. 

MOVE  TRADOC-DATA-AREA  TO  BSEP-DATA. 

MOVE  SSN  OP  TRADOC-RECORD  TO  SSN  OP  B-RECORD. 

ADD  1  TO  CREATED-B-COUNTBR. 

MOVE  SEQUENCED-DATE  TO  CREATE-DATE  OP  B-RECORD. 
EXAMINE-B-RECORD. 

IP  SELECT-ABLE-TEST-SCORE  OP  TRADOC-RECORD  NOT  EQUAL  'ER' 
IP(  DAYS-EMROLLSD  OP  B-RECORD  EQUALS  ’  OR 
DAYS-ENROLLED  OP  B-RECORD  EQUALS  '00'  OR 
DAYS-ENROLLED  OP  B-RECORD  EQUALS  '  -'  OR 
DAYS-ENROLLED  OP  B-RECORD  EQUALS  '-0') 


574 

575 

576 

577 

578 

579 

580 
581 
582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 


DAYS-ENROLLED  OP  B-RECORD  EQUALS  '-0') 

MOVE  2  TO  BSBP-LIT-STATUS  OF  A-RECORD 
ADD  1  TO  BSEP-LIT-STATUS-2, 

ELSE 

ADD  1  TO  BSEP-LIT-STATUS-1 , 

MOVE  1  TO  BSEP-LIT-STATUS  OP  A-RECORD 

ELSE 

IP  ESL  OP  TRADOC-RECORD  EQUALS  'E' 

MOVE  1  TO  BSEP-ESL-STATUS  OP  A-RECORD 
ADD  1  TO  BSEP-ESL-STATUS-1 , 

ELSE 

ADD  1  TO  BSEP-BSL-STATUS-2, 

MOVE  2  TO  BSEP-ESL-STATUS- OP  A-RECORD. 

MOVE  SEX  OP  B-RECORD  TO  SEX  OP  CONTROL-INPORMATION. 
RBWRITE-WRITE-A-RECORD. 

MOVE  SSN  OP  TRADOC-RECORD  TO  SSN  OF  SEARCH-KEY. 
MOVE  'A'  TO  RECORD-TYPE  OP  SEARCH-KEY. 

MOVE  SEQUENCED-DATE  TO  LAST-MOD-DATE  OP  A-RECORD. 

IP  OLD-A-RECORD 

ADD  1  TO  OLD-A-RECORDS-REWRITTBN, 

REWRITE  MASTER-RECORD  PROM  A-RECORD 
INVALID  KEY  DISPLAY 

'  INVALID  ATTEMPT  REWRI  *A*  REC  -  ' , 
SSN  OF  TRADOC-RECORD  UPON  PRINTER, 
SUBTRACT  1  PROM  OLD-A-RECORDS-REWRITTEN, 

ELSE 

ADD  1  TO  NEW-A-RECORDS-WRITTEN, 

WRITE  MASTER-RECORD  FROM  A-RECORD 
INVALID  KEY  DISPLAY 

'  INVALID  ATTEMPT  WRI  *A*  REC  -  ' , 
SSN  OP  TRADOC-RECORD  UPON  PRINTER, 
SUBTRACT  1  PROM  NEW-A-RECORDS-WRITTEN. 


606; 

607 

600; 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 
627 


RBWRITE-WRITE-B-RECORD. 

MOVE  SSN  OF  TRADOC-RECORD  TO  SSN  OP  SEARCH-KEY. 
MOVE  SEQUENCED-DATE  TO  MODIPY-DATE  OF  B-RECORD. 
MOVE  'B*  TO  RECORD-TYPE  OF  SEARCH-KEY. 

IP  OLD-B-RECORL 

ADD  1  TO  OLD-B-RECORDS-RBWHITTEN 

REVfRITB  MASTER-RECORD  FROM  B-RECORD 
INVALID  KEY  DISPLAY 

•  INVALID  ATTEMPT  RBWRI  *B*  REC  -  ' 
SSN  OF  TRADOC-RECORD  UPON  PRINTER, 
SUBTRACT  1  FROM  OLD-B-RECORDS-REVRITTEN, 

ELSE 

ADD  1  TO  NEW-B-RECORDS-WRITTEN, 

WRITE  MASTER-RECORD  PROM  B-RECORD 
INVALID  KEY  DISPLAY 

'  INVALID  ATTEMPT  WRI  *B*  REC  -  ' , 
SSN  OF  TRADOC-RECORD  UPON  PRINTER, 
SUBTRACT  1  FROM  NEV-B-RECORDS-VRITTEH 
BLANK-OUT- A-RECORD, 

MO'/E  SPACES  TO  MILPBRCBN-DATA  OF  A-RECORD. 

MOVE  0  TO  MASTER -FLAGS  OF  A-RECORD, 
A-RECORD-STATUS. 


628:  BLANK-OUT-B-RECORD. 

629;  MOVE  SPACES  TO  BSEP-DATA  OP  B-RECORD. 

630:  MOVE  0  TO  B-RECORD-STATDS . 

EOF: 630  SCAN; 2 
0:> 


A-21 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 
21 
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23 

24 
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27 

28 

29 

30 

31 
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33 

34 

35 
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37 
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41 

42 

43 

44 

45 
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47 

48 
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50 


IDBHTIPICATIOSf  DIVISION. 

PROGRAH-ID.  VOTECH. 

INSTALUTION.  ABERDEEN  PROVING  GROUND,  HD  ,  21010. 
DATE-WRITTEN.  NAY  I960. 

SECURITY.  NO  SECURITY  CLEARANCE. 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER .  UNIVAC-1 1 08. 

OBJECT-COMPUTER.  UHIVAC-1108. 

INPUT-OUTPUT  SECTION. 

FILE-CONTROL. 

SELECT  ACES-MASTER-FILB  ASSIGN  TO 
MASS-STORAGE  MASTER, 

ACCESS  MODE  IS  RANDOM 

ORGANIZATION  IS  INDEXED, 

FILE-LIMIT  IS  20000 
ACTUAL  KEY  IS  SEARCH-KEY, 

PROCESSING  MODE  IS  RANDOM. 

SELECT  PRINTER1  ASSIGN  TO  PRINTER. 

SELECT  RAW-VOTECH-PILB  ASSIGN  TO 

CARD-READER  POSTS. 

SELECT  VOTECH-FILE  ASSIGN  TO  CARD-READER  VSRT. 

« 

SELECT  TEMP-SORT  ASSIGN  TO 

MASS-STORAGE  XA. 

* 

DATA  DIVISION. 

PILE  SECTION. 

« 

PD  ACES-MASTER-PILE 

LABEL  RECORDS  ARE  STANDARD. 

RECORD  CONTAINS  300  CHARACTERS, 

BLOCK  CONTAINS  30  RECORDS. 

* 

01  MASTER-RECORD. 

03  SEARCH-KEY. 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X. 

03  DATA-ARBA  PIC  X(290). 

* 

PD  VOTECH-FILE 

LABEL  RECORDS  ARE  STANDARD, 

RECORD  CONTAINS  80  CHARACTERS. 

01  RAW-INPUT-CARD  PIC  X(b0). 

« 

« 
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76 

77 

78 
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80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 


SD  TEMP-SORT 

DATA  RECORD  IS  SORT-CARD. 
01  SORT-CARD. 

03  SSH  PIC  9(9). 

03  FILLER  PIC  X(70). 

03  CARD-CODE  PIC  9. 


FD  RAW-VOTECH-FILE 

LABEL  RECORDS  ARE  STANDARD, 

RECORD  CONTAINS  80  CHARACTERS. 

01  RAW-VOTECH-RECOHD  PIC  X(80). 

• 

PD  PRINTER1 

LABEL  RECORDS  ARE  OMITTED 

DATA  RECORD  IS  PRINT-LINE. 

01  PRINT-LINE. 

03  CARRIAGE-CONTROL-CHARACTER  PIC  X. 

03  PRINT-DATA  PIC  X(l2l). 

WORKING-STORAGE  SECTION. 

« 

*  V 

77  OLD-SSN  PIC  9(9). 

77  DIFFERENCE  PIC  S9(6). 

77  DDMMY-COUNTER  PIC  9(ll)  VALUE  0. 

» 

01  ACES-RECORD-COUNTBRS. 

05  NEW-A-RECORDS-WRITTEN  PIC  9(5)  VALUE  0. 

05  OLD-A-RECORDS-REWRITTEN  PIC  9(5)  VALUE  0. 

05  NEW-T-RECORDS-WRITTEN  PIC  9(5)  VALUE  0. 

05  OLD-T-RECORDS-REWRITTEN  PIC  9(5)  VALUE  0. 

*  MACHINE  DATE-TIME  IS  ACCF^ED  FPOM  THE  SYSTEM  AND 

*  IS  PRINTED  OUT  WHEN  PILES  ARB  OPENED  AND  CLOSED 
01  MACHINE-DATE-TIME. 

03  MACHINE-DATE. 

05  MM-DATE  PIC  99. 

05  DD-DATE  PIC  99. 

05  YY-DATE  PIC  99. 

03  MACHINE-TIME. 

05  HOUR-DATE  PIC  99. 

05  MIN-DATE  PIC  99. 

05  SEC-DATE  PIC  99. 

* 

*  SEQUENCED  DATE  IS  THE  DATE  IN  THE  FORM  YYMMDD  TO  ALLOWN 

*  FOR  SORTING  ON  THE  6  FIELD  CODE 

« 
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99 

100 

101 

102 

103 

104 

105 

106 
107 
106 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 
119: 
120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 
139 


01  SBQUEHCED-DATB. 

03  YY-DATB  PIC  99. 

03  MM-DATE  PIC  99. 

03  DD-DATB  PIC  99. 

« 

*  SEARCH  KEY  IS  THE  INDEX  INTO  THE  INDBXEXED  SEQUNTIAL 

*  DATA  BASE  IT  CONSISTS  OF  A  SOCIAL  SECURITY  NUMBER 

*  AND  SOME  RECORD  TYPE  (A,B,T,  OR  V) 

* 

« 

01  DUMMY  . 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X. 

*  THE  INPUT  CARD  IS  THE  COMMON  RECORD 

*  FORMAT  OP  ALL  OP  THE  VOTECH  INPUT  CARDS 

*  IE  THERE  COMMON  FIELDS  (SSN, CARD-CODE) 

* 

01  INPUT-CARD. 

03  SSN  PIC  9(9). 

03  DAT A- AREA. 

05  FILLER  PIC  X(4). 

05  DOE  PIC  9(6). 

05  FILLER  PIC  X(60). 

03  CARD-CODE  PIC  9. 

88  FIRST-CARD  VALUE  1 . 

88  SECOND-CARD  VALUE  2. 

88  THIRD-CARD  VALUE  3. 

88  FOURTH-CARD  VALUE  4. 

♦ 

*  THE  A  RECORD  IS  THE  MASTER  RECORD  FOR  THE  ACES  FILE 

*  A  SOLDIER  MUST  HAVE  AN  A  RECORD  TO  HAVE  A  B,T,  OR  V 

*  TYPE  OF  RECORD  INDEXED  BY  NNNNNNNNNA  WHERE  N  IS  A 

*  NUMERIC  VALUE 

» 

01  A-RECORD. 

02  A-RECORD-DUMMY. 

03  SSN-TYPB  . 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X  VALUE  'A‘. 

03  MASTER-FLAGS. 


140 

05 

BSEP-LIT-STATUS  PIC  9. 

141 

88 

NO-B-RECORD  VALUE  0 

142 

88 

BSEP-LIT-PARTIC 

VALUE  1 . 

143 

88 

BSEP-LIT-NON-PARTIC 

VALUE 

144 

05 

BSEP-ESL-STATUS  PIC  9. 

145 

88 

NO-B-RECORD 

VALUE  0. 

146 

88 

BSEP-ESL-PARTIC 

VALUE  1. 

147 

88 

BSEP-ESL-NON-PARTIC 

VALUE  2. 
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148: 

05 

VO-TECH-STATUS  PIC  9- 

149: 

88  NO-T-RBC08D 

VALUE  0. 

150: 

88  VO-TECH-PARTIC 

VALUE  1. 

151: 

88  VO-TECH-NON-PARTIC 

VALUE  2. 

152: 

05 

VEAP-STATUS  PIC  9. 

153: 

88  NO-V-RECORD 

VALUE 

0 

154: 

88  VEAP-PARTIC 

VALUE 

1 

155: 

88  VEAP-WITHDRAW-BBTURN  VALUE 

2 

156: 

88  VEAP-WITHDRAW-NO-RBTURN  VALUE 

3 

157: 

88  VEAP-NON-PARTIC 

VALUE 

4 

158 

03  A- 

-RECORD-STATUS. 

159 

05 

MILPERCEN-PLAG  PIC  9. 

160 

88  MILPERCBN-PRESENT 

VALUE 

1 

161 

05 

DMDC-PLAG  PIC  9. 

162 

88  DMDC-PRBSENT 

VALUE 

1 

163 

05 

TSC-FLAG  PIC  9. 

164 

88  TSC-PRESENT 

VALUE 

1 

165:  05 

ERBC-PUG  PIC  9. 

166 

88  EREC-PRESEHT 

VALUE 

1 

167 

05 

CRBATE-DATE. 

168 

07  CREATE-YY  PIC  99. 

169 

07  CREATE-MM  PIC  99. 

170 

07  CREATE-DD  PIC  99. 

171 

05 

LAST-MOD-DATE. 

172 

07  LAST-MOD-YY  rIC  99. 

173 

07  UST-MOD-MM  PIC  99. 

174 

07  UST-MOD-DD  PIC  99. 

175 

03  CONTROL-INPORMATIOH. 

176 

05 

DOB. 

177 

07  DOB-YY  PIC  99. 

178 

07  DOB-MM  PIC  99. 

179 

07  DOB-DD  PIC  99. 

180 

05 

SEX  PIC  X. 

18i 

88  MALE  VALUE  'M'. 

182 

88  FEMALE  VALUE  ’P*. 
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18?! 

184: 

185: 

186 

187 

188 
189 
190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 
227 
228 

229 

230 

231 

232 


03  MILPERCBR-OATA. 

07  Sn  PIC  X. 

07  RACK  PIC  X. 

07  KARST  PIC  X. 

07  DOB  PIC  X(6). 

07  TERNS  PIC  X. 

07  BTSDT  PIC  X(6). 

07  BOPCL  PIC  X. 

07  BPBOT  PIC  XXXX. 

07  PAYOR  PIC  X. 

07  DOR  PIC  X(6). 

07  APQSC  PIC  XX. 

07  CIVBD  PIC  X. 

07  PMOS  PIC  X(5). 

07  DUOS  PIC  X(5). 

07  TYPLA  PIC  XX. 

07  DATLA  PIC  X(6). 

07  PSVCI  PIC  X. 

07  EERVA  PIC  XXX. 

07  CMP  PIC  XX. 

07  AITDT  PIC  XXX. 

07  GTSCR  PIC  XXX. 

07  PQDES  PIC  X(4). 

07  PSQDT  PIC  X(4)* 

07  PQSCR  PIC  XXX. 

07  PQPBR  PIC  XX. 

07  SMOS  PIC  X(5). 

07  FILLER  PIC  X(4). 

03  DMLC-DATA  PIC  X(124). 

03  TSC-DATA  PIC  X(56). 


COHSOIT  DOCUKENTATIOH  FOR  FILE  UYOUT 

ALL  ARE  REFERENCED  BY  NNNNNNNNNB  WHERE  R  IS  A 

NUMERIC  VALUE 


^  THE  Z-RECORD  IS  ALWAYS  MAINTAINED  ON  THE  ACES  MASTER  FILE 
'  IT  CARRIES  THE  RECORDS  COUNTS,  AND  OTHER  FILE  INFORMATION 
*  CONSULT  SYSTEM  DOCUMENTATION  FOR  RECORD  LAYOUT 

^  INDEX  FOR  Z  RECORD  IS  OOOOOOOOOZ 

► 

01  Z-RECORD. 

03  SSN-TYPE. 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X  VALUE  'Z*. 

03  INTIALIZED-DATE. 

05  INTIALIZED-YY  PIC  99. 

05  INTIALIZED-MM  PIC  99. 

05  INTIALIZED-DD  PIC  99. 
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233; 
234; 
235; 
236; 
237; 
238; 
239; 
240; 
241; 
242: 
243; 
244: 
245; 
246: 
247; 
248: 
249; 
250; 
251: 
252: 
253; 
254; 
255; 
256: 
257: 
258: 
259; 
260: 
261: 
262: 
263; 
264: 
265; 
266: 
267; 
268: 
269: 
270; 
271; 
272: 
273; 
274: 
275: 
276; 
277; 
278: 
279: 
280: 
281 : 


03  LAST-N00IPIBD>DATE. 

05  LAST-NOOIFIBS-TY  PIC  99. 

05  LAST-MODIPIEO-m  PIC  99. 

05  LAST-NODIFIBS-DI)  PIC  99. 

03  RBCORD-COONTS. 

05  miNBBR-OF-A-RBCORDS  PIC  9(7). 

05  NUKBER-OF-B-RBCOROS  PIC  9(7). 

05  NOHBBR-OF-T-RBCORDS  PIC  9(7). 

05  HUMBER* OF-V-RBCORDS  PIC  9(7). 

05  TOTAL-RBCORDS  PIC  90 1). 

* 

*  THE  F0LL0VIM6  ARE  THE  PRIRT  LINES  FOR  THE  STATUS  REPORT 

* 

01  STATUS-REPORT. 

03  LINE-1 . 

05  FILLER  PIC  1(20)  VALUE  SPACES. 

05  FILLER  PIC  l(40)  VALUE  'STATUS  REPORT  ON  ACES  MASTER 
•  PILE'. 

03  LlNE-2. 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

05  FILLER  PIC  l(8)  VALUE  'TIME 

05  SHOW-TIMB  PIC  X(6). 

03  LINB-3. 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

05  FILLER  PIC  X(8)  VALUE  'DATE 

05  SHOW-DATE  PIC  99/99/99. 

03  LINE-4. 

05  FILLER  PIC  X(3)  VALUE  SPACES. 

05  FILLER  PIC  X(ll)  VALUE  'TYPE  RECORD'. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(l3)  VALUE  'FREQUENCIES'. 

05  FILLER  PIC  X(23)  VALUE  SPACES. 

05  FILLER  PIC  X(23)  VALUE  'DATE  INTIALIZED  '. 

05  SHOV-INTIALIZED-DATE  PIC  99/99/99. 

03  LINE-5. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

OS  FILLER  PIC  X(15)  VALUE  'A'. 

05  SHOW-A-COUNT  PIC  ZZZ,ZZ9. 

03  LHiE-6. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'B'. 

05  SHOW-B-COUNT  PIC  ZZZ,ZZ9. 

03  LINE-7. 

05  FILLER  PIC  X(l2)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'T'. 

05  SHOW-T-COUNT  PIC  ZZZ,ZZ9. 

05  FILLER  PIC  X(25)  VALUE  SPACES. 

05  FILLER  PIC  X (20 )  VALUE  'DATE  LAST  MODIFIED  ' . 

05  SHOW-MODIPY-DATE  PIC  99/99/99. 
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282: 

283: 

284: 

285: 

286: 

287: 

288: 

289: 

290: 

291: 

292: 

293: 

294: 

295: 

296: 

297: 

298: 

299: 

300: 

301: 

302: 

303: 

304: 

305: 

306: 

307: 

308: 

309: 

310: 

311: 

312: 

313: 

314: 

315: 

316: 

317; 

318; 

319: 

320: 

321: 

322: 

323; 

324: 

325; 

326: 

327: 

328: 

329: 

330: 


03  LIIfB-8. 

05  FILLER  PIC  Z(12)  VALUE  SPACES. 

05  FILLER  PIC  Z(15)  VALUE  'V*. 

05  SROV-V-COURT  PIC  ZZZ,ZZ9. 

03  Liins-9. 

05  FILLER  PIC  X(28)  VALUE  SPACES. 

05  FILLER  PIC  X(6)  VALUE  * - 

03  LIRB-10. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'TOTAL*. 

05  SHOV-SUM-ABTVoRECORDS  PIC  ZZZ»ZZZ,999. 
01  CREATED-A-RECORD-FLAG  PIC  9. 

88  OLO-A-RECORD  VALUE  0. 

88  NEW-A-RECORO  VALUE  1 . 

88  REJECTED-A-RECORU  VALUE  2. 

01  CREATED-T-RECORS-FLAG  PIC  9. 

88  OLD-T-RECORD  VALUE  0. 

88  HEV-T-RECORD  VALUE  1 . 

88  REJECTED-VOTECH-DATA  VALUE  2. 

01  VOTECH-PILB-PUG  PIC  9. 

88  EOP-VOTECH-PILE  VALUE  1 . 

01  RECORD-COUNTERS. 

03  VOTECH-RECORD-COUNTER  PIC  9(9)  VALUE  0. 

03  CARD-IMAGES-READ  PIC  9(9)  VALUE  0. 

03  IMPROPER-MATCH-DOB  PIC  9(9)  VALUE  0. 

03  IMPROPER-MATCH-SBX  PIC  9(9)  VALUE  0. 

03  SOLDIERS-IN-RAW-DATA-PILB  PIC  9(9)  VALUE  0 
03  REJBCTED-VOTBCH-COUNTBR  PIC  9(9)  VALUE  0. 
03  CREATED-A-COUHTER  PIC  9(9)  VALUE  0. 

03  CREATED-T-COUKTER  PIC  9(9)  VALUE  0. 

03  UPDATED-T-RECORD-COUSTER  PIC  9(9)  VALUE  0 
01  VOTECH-INPUT-DATA, 

03  CAHD-1 , 

05  SSN  PIC  9(9). 

05  GT-SCORE  PIC  999. 

05  EDU-LEVEL  PIC  X. 

05  DOB  PIC  9(6), 

05  RACE  PIC  X. 

05  SEX  PIC  X. 

05  GRADE  PIC  XX. 

05  APPT-DATE-B5  PIC  9(6). 

05  APPT-DATB-E6  PIC  9(6). 

05  BASIC-ENLIST-SERV-DATE  PIC  9(6), 

05  DATE-PIRST-MOS  PIC  X(5). 

05  DUTT-MOS  PIC  X(5). 

05  PREVIOUS-ACTIYE-MILITARI-SERV  PIC  9(6). 
05  AGREEMENT-DATE  PIC  9(6), 

05  EER-EERWA-SCORE  PIC  9(3), 

05  3ER-EERWA-P0RN  PIC  9. 
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331: 

332: 

333: 

334: 

335: 

336: 

337: 

338: 

339: 

340: 

341: 

342: 

343: 

344: 

345: 

346- 

347: 

348; 

349: 

350: 

351: 

352: 

353: 

354: 

355: 

356: 

357: 

358: 

359: 

360: 

361: 

362: 

363: 

364; 

365; 

366: 

367: 

368: 

369: 

370: 

371: 

372: 

373: 

374: 

375: 

376: 

377: 

378: 


05  PRONOTIOR-FOIIITS  PIC  9(4). 

05  SISCIPLIlfARr.ACTZOllS  PIC  9. 

05  0ISCIPLINAIlY*ACTI0IIS-2627  PIC  9. 
05  FILLER  PIC  XX. 

05  CAROS-PER-CASB  PIC  9. 

05  TWO-0-1 -COHPLETE  PIC  9. 

05  POST-BASE-EO-CEMTER  PIC  X. 

05  CARD-CODE  PIC  9. 

03  CARD-2. 

05  SSN  PIC  9(9). 

05  ETS  PIC  9(6). 

05  YOTECH-PARTICIP  PIC  9. 

05  VOTECH-PARTJ  CIPAHT-TYPE . 

07  AUTO  PIC  9. 

07  DIESEL  PIC  9. 

07  WELDING  PIC  9. 

07  ELECTRONICS  PIC  9. 

07  CONSTRUCTION  PIC  9. 

05  OTHER-ACES-PARTICIPANT. 

07  NONE  PIC  9. 

07  BSEP-I-TI-ESL  PIC  9. 

07  HSCP  PIC  9. 

07  SOCAD-SOC  PIC  9. 

07  APPRENTICISHIP  PIC  9. 

07  NOS-RSFRESHSR  PIC  9. 

07  HEAD-GATE-ESL  PIC  9. 

07  VEAP  PIC  9. 

05  VOTSCH-COURSES. 

07  COURSB-I . 

09  COURSE-CODE  PIC  999. 

09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSE-2. 

09  COURSE-CODE  PIC  999. 

09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COUHSE-3. 

09  COURSE-CODE  PIC  999. 

09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COUHSB-4. 

09  COURSE-CODE  PIC  999. 

09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 
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379: 

380: 

381: 

382: 

383: 

384: 

385: 

386: 

387: 

388: 

389: 

390: 

391: 

392: 

393: 

394: 

395: 

396: 

397: 

398: 

399: 

400: 

401: 

402: 

403: 

404: 

405: 

406: 

407: 

406: 

409; 

410: 

411: 

412; 

413: 

414; 

415: 

416: 

417; 

418: 

419: 

420: 

421: 

422: 

423: 

424; 

425: 


07  COORSB-5. 

09  COUR8B-COOB  PIC  999. 
09  BASK  PIC  999. 

09  HOURS  PIC  999. 

09  FIHISHBO  PIC  9. 

05  CARO-CODS  PIC  9. 

03  CARl>-3. 

05  SSR  PIC  9(9). 

05  VOTBCR-COURSKS. 

07  COURSB-6. 

09  COURSB-COBS  PIC  999. 
09  BASB  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSB-7. 

09  COURSB-CODB  PIC  999. 
09  BASB  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9* 

07  COURSB-8. 

09  COURSE-CODE  PIC  999. 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  CODRSB-9. 

09  COURSE-CODE  PIC  999. 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSB-10. 

09  COURSE-CODE  PIC  999. 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

03  CARD-4. 

05  SSK  PIC  9(9). 

05  VOTECH-COURSES. 

07  COURSE-11. 

09  COURSE-CODE  PIC  999 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSB-12. 

09  COURSE-CODE  PIC  999 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 
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426} 

427} 

428} 

429} 

430} 

431} 

432} 

433} 

434} 

435} 

436: 

437} 

438: 

439: 

440} 

441: 

442: 

443: 

444: 

445: 

446; 

447: 

448: 

449: 

450; 

451: 

452: 

453: 

454: 

455: 

456: 

457: 

458: 

459; 

460: 

461: 

462: 

463; 

464: 

465; 

466: 

467: 

468: 

469: 

470: 

471; 

472: 

473; 

474: 

475; 

476: 

477; 


07  GOURSS-13* 

09  COUSSB^COOR  PIC  999< 

09  BASS  PIC  999. 

09  HOURS  PIC  999. 

09  PIHISKBD  PIC  9. 

07  PILLBR  PIC  X(40). 

05  CARD>C00B  PIC  9. 

01  T-P.BCORO. 

03  SSR  PIC  9(9). 

03  RKORD-TTPB  PIC  X  VALOB  *7'. 

03  CARB-1. 

05  OT-SCORB  PIC  999. 

05  BBU-LBVEL  PIC  X. 

05  DOB  PIC  9(6). 

05  RACE  PIC  X. 

05  SBX  PIC  X. 

05  CRADB  PIC  XX. 

05  APPT-DATB-E5  PIC  9(j). 

05  APPT-DATB-E6  PIC  9(6). 

05  BASIC-BHLIST-SERV-DATE  PIC  9(6). 

05  DATE-PIKST-MOS  PIC  X(5). 

05  DUTY-MOS  PIC  X(5). 

05  PRBVIOOS-ACTIVB-MILITARY-SERV  PIC  9(6). 
05  AGRBEMEHT-DATB  PIC  9(6). 

05  E8R-EERWA-SC0RB  PIC  9(3). 

05  BER-BERWA-PORM  PIC  9. 

05  PROMOTIOH-POINTS  PIC  9(4). 

05  DISCIPLINARY^ACTIOHS  PIC  9. 

05  DISCIPLIRARY-ACTIOWS-2627  PIC  9. 

0%  FILLER  PIC  XX. 

05  CABDS>PER-CASE  PIC  9. 

05  TVO-0-1 -COMPLETE  PIC  9. 

05  POST-BASE-ED-CEHTER  PIC  X. 

03  CARD-2. 

05  BTS  PIC  9(6). 

05  VOTECH-PARTICIP  PIC  9. 

05  VOTECH-PARTICIPANT-TYPE. 

07  AUTO  PIC  9. 

07  DIESEL  PIC  9. 

07  WELDING  PIC  9. 

07  ELBCTROHICS  PIC  9. 

07  CONSTROt  .'ION  PIC  9. 

05  OTHER-ACES-PARTICIPANT. 

07  NONE  PIC  9. 

07  BSBP-I-II-ESL  PIC  9. 

07  HSCP  PIC  9- 
07  SOCAD-SOC  PIC  9. 

07  APPRENTICISHIP  PIC  9. 

07  HOS-REFRESHER  PIC  9. 

07  HSAD-GATE-ESL  PIC  9* 

07  VEAP  PIC  9. 


478 

479 

480 

481 
482 

483 

484 

485 
436 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 
501 
502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 
513 
5U 

515 

516 

517 

518 

519 

520 

521 

522 

524 

525 


05  VOTECH-COUHSBS. 

07  COUHSE-I . 

09  COOaSE-CODE  PIC  999- 
09  EASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSE-2. 

09  COURSE-CODE  PIC  999. 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSE-3. 

09  COURSE-CODE  PIC  999. 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISraiD  PIC  9. 

07  COURSE-4. 

09  COURSE-CODE  PIC  999- 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSE-5. 

09  COURSE-CODE  PIC  999. 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

03  CARD-3. 

05  VOTECH-COURSES. 

07  COURSE-6. 

09  COURSE-CODE  PIC  999. 
09  BASE  FIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSE-7. 

09  COURSE-CODE  PIC  999. 
09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSE-3. 

09  COURSE-CODE  PIC  999. 
09  BASE  PTC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSE-9. 

09  COURSE-CODE  PIC  999. 
09  BASE  PIC  999. 

09  HOURS  FIC  999. 

09  FINISHED  PIC  9. 
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526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 


07  COURSE-1 0. 

09  COURSE-CODE  PIC  999. 

09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

03  CARD-4. 

05  VOTECH-COURSES. 

07  COURSE- 1 1 . 

09  COURSE-CODE  PIC  999. 

09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COORSE-12. 

09  COURSE-CODE  PIC  999. 

09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

07  COURSE-13. 

09  COURSE-CODE  PIC  999. 

09  BASE  PIC  999. 

09  HOURS  PIC  999. 

09  FINISHED  PIC  9. 

h  ' 

PROCEDURE  DIVISION, 

MAINLINE. 

PERFORM  SET-UP-ACES-MASTER-PILE. 

►  PERFORM  SORT-VOTECH-DATA. 

PERFORM  SET-UP-VOTECH-DATA-TAPE. 

PERFORM  PROCESS-VOTECH-FILE. 

PERFORM  SHUT-DOWN-ACES-MASTER-FILE. 

PERFORM  SUMMARY-STATISTICS. 

STOP  RUN. 

SET-UP-ACES-MASTER-FILE . 

►  THIS  ROUTINE  WILL  BE  THE  FIRST  STEP  IN  ANY  RUN 

►  INVOLVING  THE  ACES-MASTER-FILE. 

OPEN  I-O  ACES-MASTER-FILE. 

MOVE  ZEROES  TO  SSN  OF  SEARCH-KEY. 

MOVE  'Z'  TO  RECORD-TYPE  OF  SEARCH-KEY. 

READ  ACES-MASTER-FILE  INTO  Z-RECORD, 

INVALID  KEY  DISPLAY  '  NO  Z  RECORD',  UPON  PRINTER 
STOP  RUN. 

OPEN  OUTPUT  PRINTER1 . 

PERFORM  PRINT-STATUS-REPORT. 

PRINT-STATUS-REPORT. 

►  MOVE  THE  DATA  OFF  Z-RECORD  TO  REPORT  PRINT  LINES 
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574! 

575 

576 

577 

578 

579 

580 
581 
582 

583 

584 

585 

586 

587 

588 

589 

590 


MOVE  INTIALIZED-DATE  OP  Z-HECORD  TO 

SHOW-INTI ALIZED-DATE  OF  STATUS-REPORT. 

MOVE  LAST-MODIPIED-DATE  TO  SHOW-MODIFY-DATE. 

MOVE  NUMBER-OP-A-RECORDS  TO  SHOW-A-COUHT. 

MOVE  NUMBER-OP-B-RECORIS  TO  SHOW-B-COUNT. 

MOVE  NUMBER-OF-T-RECORDS  TO  SHOW-T-COUHT. 

MOVE  NUMBER-OF-V -RECORDS  TO  SHOW-V-COUNT. 

MOVE  TOTAL-RECORDS  TO  SHOW-SUM-ABTV-RECORDS . 

* 

*  GET  THE  CORRECT  TIME  AND  DfATE 

*  PLACE  TIME,  DATE  INTO  REPORT  PAGE 
PERFORM  INTIALIZE -DATE-TIME. 

MOVE  MACHINE-TIME  TO  SHOW-TIME  OP  STATUS-REPORT. 
MOVE  SEQUENCED-DATE  TO  SHOW-DATE  OP  STATUS -REPORT. 

*  WRITE  THE  STATUS  REPORT 

*  WRITE  PRINT-LINE  PROM  LINE-1  OP  STATUS-REPORT  AFTER 

*  PAGE-TOP  LINES. 
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598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
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613 

614 

615 

616 


PAGE-TOP 

LINES. 

WRITE 

PRINT-LINE 

FROM 

LINE-2 

OP 

STATUS-REPORT 

AFTER 

2 

WRITE 

PRINT-LINE 

FROM 

LINE-3 

OF 

STATUS -REPORT 

AFTER 

2 

WRITE 

PRINT-LINE 

FROM 

LINE-4 

OP 

STATUS -REPORT 

AFTER 

2 

WRITE 

PR I NT -LINE 

FROM 

LINE-5 

OF 

STATUS -REPORT 

AFTER 

2 

WRITE 

PRINT-LINE 

FROM 

LINE -6 

OF 

STATUS-REPORT 

AFTER 

2 

WRITE 

PRINT-LINE 

FROM 

LINE-7 

OF 

STATUS-REPORT 

AFTER 

2 

WRITE 

PRINT -LINE 

FROM 

LINE-0 

OF 

STATUS -REPORT 

AFTER 

2 

WRITE 

PRINT -LINE 

FROM 

LINE-9 

OF 

STATUS -REPORT 

AFTER 

2 

WRITE 

PRINT-LINE 

FROM 

LINE-10  OF  STATUS-REPORT  AFTER 

INTIALIZE-DATS-TIME. 

*  THIS  WILL  CHANGE  DATE  TO  FORM  YYMMDD 

ACCEPT  MACHINE-DATE-TIME  FROM  DATE-TIME. 

MOVE  CORRESPONDING  MACHINE-DATE  TO  SEQUENCED-DATE. 

« 

« 


SHUT-DOWN-ACES-MASTER-FILE. 

*  A  STATUS  REPORT  WILL  BE  GENERATED 

*  A  MODIFIED  Z-RECORD  WILL  BE  REWRITTEN 

*  ACES-MASTEFILE  WILL  BE  CLOSED 

*  FIRST  WE  UPDATE  THE  COUNTERS 

PERFORM  UPDATE-COUNTERS. 

PERFORM  PRINT-STATUS-REPORT. 

PERFORM  WRITE-Z-RECORD. 

CLOSE  ACES-MASTER-FILE. 


LINES. 
LINES. 
LINES . 
LINES. 
LINES . 
LINES. 
LINES. 
LINES. 

2  LINES. 


o^cT>a^<T^o^o^a^c^\o^cJ^a^cy^o^o^a^o^<y\a^cT\o^<y\o\a\o\o^o^o^o\o^<7•lO^<7\^7\a>^7^^7\o^<Tvc7vo>o^o^o^o\0^o^o\ 

^VJa^0--*OvDCD--JO^V-n-^^VJ^^0-*Ov^00-^O^'J!-fkV^^>“*Ovo00--3O^^J^4^*•VJl^O--^O^O00-4O^^J14^VJJ^>-‘OU>00 
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UPDATE-COUNTERS. 

ADD  NEW-A-RECORDS-WRITTEN  TO  NUMBER-OP-A -RECORDS. 

ADD  NEW-T-RECORDS-WRITTEN  TO  NUMBER-OP-T -RECORDS. 
DISPLAY  '  NEW  A  RECORDS’,  NEW-A-RECORDS-WRITTEN 
UPON  PRINTER. 

DISPLAY  '  OLD  A  RECORDS’,  OLD-A-RECORDS-REWRITTEN 
UPON  PRINTER. 

DISPLAY  ’  NEW  T  RECORDS’,  NEW-T-RECORDS-WRITTEN 
UPON  PRINTER. 

DISPLAY  ’  OLD  T  RECORDS’,  OLD-T-RECORDS -REWRITTEN 
UPON  PRINTER. 

MOVE  0  TO  TOTAL-RECORDS. 

ADD  NUMBER -OF-A-RECORDS  TO  TOTAL-RECORDS. 

ADI  NUMBER-OF-B-RECORDS  TO  TOTAL-RECORDS. 

ADD  NUMBER-OF-T -RECORDS  TO  TOTAL-RECORDS. 

ADD  NUMBER-OF-V -RECORDS  TO  TOTAL-RECORDS. 
WRITE-Z-RECORD. 

MOVE  SEQUENCED-DATE  TO  LAST-MODIFIED-DATE  OF  Z-RECORD. 
MOVE  Z-RECORD  TO  MASTER -RECORD. 

REWRITE  MASTER-RECORD 

INVALID  KEY  DISPLAY  ’Z  RECORD  NOT  WRITTEN’ 

UPON  PRINTER. 

«  »*««*«««»«««»««««*««»*«**»«««««*«««*»»** 

*  THE  FOLLOWING  PORTION  OF  THE  PROGRAM  IS  STRICTLY  FOR 

*  PILE  PROCESSING  OF  VOTECH  DATA 

♦SORT-VOTECH-DATA  SECTION.  * 

*DUMMY -PARAGRAPH-NAME. 

*  SORT  TEMP-SORT 

*  ON  ASCENDING 

*  SSN  OF  SORT-CARD 

*  ASCENDING 

*  CARD-CODE  OF  SORT-CARD 

*  USING  RAW-VOTECH-FILE 

*  GIVING  VOTECH-PILE. 

*  »«#»«««*«•*««««*«««**««»«»*»#«»**««•*«««**««»«**«* 

ANOTHER-BIG  SECTION. 

SET-UP-VOTECH-DATA-TAPE. 

OPEN  INPUT  VOTECH-FILE. 

MOVE  0  TO  VOTECK-FILE-FLAG. 

PROCESS-VOTECH-FILE. 

PERFORM  INPUT-SORTED-VOTECK-CARD-IMAGE. 

PERFORM  PROCESS-SOLDIER 

UNTIL  EOP-VOTECH-FILE. 

PROCESS -SOLDIER. 

MOVE  SSN  OF  INPUT-CARD  TO  OLD-SSN. 

MOVE  0  TO  CREATED-A-RECORD-FLAG, 

CREATED-T -RECORD-FLAG. 
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687 

688 

689 

690 

691 
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693 

694 
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*  CHECK  TO  SEE  THAT  THE  SSN  OP  DATA  IS  NUMERIC 

*  IP  IT  IS  THEN  TRY  TO  PIND-VERIPY  THE  A-RECORD 

» 

PERFORM  EXAMINE-DATA. 

IP  NOT  REJECTED-VOTECH-DATA 

PERFORM  FIND-CREATE-A-RECORD. 

« 

IF  NOT  REJECTED-VOTECH-DATA 

PERFORM  PIND-CREATE-T-RECORD, 

PERFORM  EXAMINE-T-RECORD, 

PERFORM  WRITE -REVRITE-A-RECORD, 

PERFORM  WRITE-RBWRITE-T -RECORD. 

« 

*  IF  THE  DATA  WAS  REJECTED  WE  MUST  PIECE  A  NEW  CARD  IN  THE 

*  THE  INPUT  STREAM  NORMALLY  THIS  IS  DONE  IN  *PROCESS-CARDS* 

IF  REJECTED-VOTECH-DATA 

PERFORM  INPUT -SORTED-VOTECH-CARD-IMAGE. 

*  ««*»««*«*•*»»««*•»*«««•«»»»«***«*««»«•»*«»«*««« 

« 

EXAMINE-DATA. 

*  HERE  WE  WILL  CHECK  ANY  PRELIMINARY  REQUIREMENTS  TO 

*  WILL  MOVE  2  TO  CREATED-T -RECORD-FLAG 

IF  SSN  OF  INPUT-CARD  IS  NOT  NUMERIC 

OR  CARD-CODE  OF  INPUT-CARD  IS  NOT  NUMERIC 

MOVE  2  TO  CREATED-T -RECORD-FLAG, 

ADD  1  TO  REJECTED-VOTECH-COUNTSR, 

DISPLAY  SSN  OP  INPUT-CARD,  'BAD  INPUT  CARD’ 

UPON  PRINTER. 

* 

« 

FIND-CREATE-A-RECORD. 

MOVE  SSN  OF  INPUT -CARD  TO  SSN  OF  SEARCH-KEY. 

MOVE  'A'  TO  RECORD-TYPE  OF  SEARCH-KEr. 

READ  ACES-MASTER-FILE  INTO  A-RECORD, 

INVALID  KEY  PERFORM  CREATE -A -RECORD. 

IF  NOT  NEW-A-RECORD  PERFORM 

VERIFY-A-RECORD-MATCH. 

CREATE-A-RECORD. 

MOVE  1  TO  CREATED-A-RECORD-FLAG. 

MOVE  SPACES  TO  A-RECORD. 

MOVE  'A*  TO  RECORD-TYPE  OF  A-RECORD. 

MOVE  0  TO  MASTER-FLAGS  OF  A-RECORD. 

MOVE  SEQUENCED-DATE  TO  CREATE-DATE  OF  A-RECORD. 

MOVE  SSN  OF  INPUT-CARD  TO  SSN  OF  A-RECORD. 

MOVE  DOB  OF  INPUT-CARD  TC 

DOB  OF  CONTROL-INFORMATION. 

» 
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VERIPY-A-RECORD-MATCH. 

MOVE  INPUT-CARD  TO  CARD-1  OP  VOTECH-INPUT-DATA. 

*  THE  PURPOSE  HERE  IS  TO  VERIFY  THAT  THE  A-RECORD  IS  THE 

*  SAME,  HOWEVER  IP  THE  A-RECORD  WAS  CREATED  PROM  BSEP  DAT 

*  THERE  WILL  BE  NO  DOB  ONLY  999999  IN  THAT  PLACE 

*  THE  IDEA  HERE  IS  TO  LET  THE  VERIFICATION  CHECK  BE 

*  DONE  ON  THE. SEX  COMPARISON 

IP  DOB  OP  CONTROL-INFORMATION  NOT  EQUAL  TO  999999 
MOVE  DOB  OF  CONTROL-INFORMATION  TO  DIFFERENCE, 

SUBTRACT  DOB  OP  VOTECH-INPUT-DATA  FROM  DIFFERENCE, 

IP  DIFFERENCE  IS  GREATER  THAN  9  OR  LESS  THAN  -9 
■  DISPLAY  'SSN  MATCH  REJECT  ON  DOB',  SSN  OF  INPUT-CARD, 

UPON  PRIiNTEF, 

ADD  1  TO  IMPROPER-MATCH-DOB, 

MOVE  2  TO  CREATED-T -RECORD-FLAG. 

* 

IF  DOB  OP  VOTECH-INPUT-DATA  EQUAL  999999 

AND  SEX  OF  CONTROL-INFORMATION  NOT  EQUAL  SEX 
OP  VOTECH-INPUT-DATA 
MOVE  2  TO  CREATED-T-RECORD-FLAG, 

DISPLAY  'SSN  MATCH  REJECT  ON  SEX',  SSN  OP  INPUT-CARD 
UPON  PRINTER, 

ADD  1  TO  IMPROPER-MATCH-SEX. 

FIND-CKEATE-T-RECORD. 

MOVE  'T'  TO  RECORD-TYPE  OP  SEARCH-KEY. 

READ  ACES-MASTER-FILE  INTO  T-RECORD, 

INVALID  KEY  PERFORM  CEEATE-T -RECORD. 

PERFORM  INCORPORATE-DATA -CARDS. 

CREATE-T -RECORD. 

MOVE  SPACES  TO  T-RECORD. 

MO'/E  1  TO  CREATED-T-RECORD-FLAG. 

PERFORM  INCORPORATE-DATA-CARDS. 

MOVE  SSN  OF  INPUT-CARD  TO  SSN  OF  T-RECORD. 

MOVE  'T'  TO  RECORD-TYPE  OF  T-RECORD. 

« 

INCORPORATE-DATA-CARDS. 

PERFORM  PROCESS-CARDS 

THROUGH  INPUT-SORTED-VOTECH-CARD-IMAGE 
UNTIL  SSN  OF  INPUT-CARD  NOT 
EQUAL  OLD-SSN 
OR 

BOF-VOTRCH-FILE. 
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EXAMINE-T-RECORD. 

*  HERE  WE  WILL  SENT  THE  FLAGS  IN  THE  A-RECORD  DEPENDING 
♦UPON  WETHER  A  VOTECH  PART,  OR  NOT  IT  MUST  BE  ONE  OR  OTHER 

MOVE  SEX  OP  T-RECORD  TO 

SEX  OP  CONTROL-INFORMATION  OP  A-RECORD. 

IP  VOTECH-PARTICIP  OP  T-RECORD  EQUAL  1 

MOVE  1  TO  VO -TECH-STATUS  OF  A-RECORD 
ELSE 

MOVE  2  TO  VO-TECH-STATUS  OP  A-RECORD. 

« 

WRITE-REWRITE-A-RECORD. 

* 

MO'^E  ’A'  TO  RECORD-TYM:  op  SEARCH-KEY. 

MOVE  'A'  TO  RECORD-TYPE  OP  A-RECORD. 

MOVE  SEQUENCED-DATE  TO  LAST-MOD-DATE  OF  A-RECORD. 

IP  NEW-A-RSCORD 

ADD  1  TO  NEW-A-RECORDS-WRITTEN,  DUMMY-COUNTER, 

WRITE  MASTER -RECORD  FROM  A-RECORD, 

INVALID  KEY  DISPUY  'BAD  WRITE  ON  A  RECORD', 
UPON  PRINTER, 

ELSE 

ADD  1  TO  OLD-A-RECORDS-REWRITTEN, 

DISPLAY  '  ',  SSN  OF  SEARCH-KEY,  'OLD  A  RECORD  REWRIT’, 

UPON  PRINTER, 

REWRITE  MASTER -RECORD  PROM  A-RECORD, 

INVALID  KEY  DISPLAY  'BAD  REWRITE  ON  A  RECORD 
UPON  PRINTER. 

« 

IF  DUMMY-COUNTER  EQUALS  75, 

MOVE  0  TO  DUMMY-COUNTER, 

DISPLAY  ’  NEW-A-RECORDS ’ ,  NEW-A-RECORDS-WRITTEN, 

UPON  PRINTER. 

WRITS-REWRITE-T-RECORD. 

MOVE  'T'  TO  RECORD-TYPE  OF  SEARCH-KEY. 

MOVE  'T'  TO  RECORD-TYPE  OF  T-RECORD. 

MOVE  OLD-SSN  TO  SSN  OF  T-RECORD. 

IF  NEW-T-RECORD 

ADD  1  TO  NEW-T-RECORDS-WRITTEM, 

WRITE  MASTER-RECORD  FROM  T-RECORD, 

INVALID  KEY  DISPLAY  'BAD  WRITE  ON  T  REC ' , 

UPON  PRINTER, 

ELSE 

ADD  1  TO  OLD-T-RECORDS-REWRITTEN, 

REWRITE  MASTER-RECORD  FROM  T-RECORD, 

INVALID  KEY  DISPLAY  'BAD  REWRITE  ON  T  REC', 
UPON  PRINTER. 

«  ««*««««»«**«««**««««**«»«»«»««««*«««»•««# 
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PROCESS-CARDS. 

IP  FIRST-CARD  PERFORM  HANDLE-CARD-1 , 
ELSE 

IP  SECOND-CARD  PERFORM  HANDLE -CARD -2 , 
ELSE 

IP  THIRD-CARD  PERFORM  HANDLE-CARD-3, 
ELSE  ■ 

IP  FOURTH-CARD  PERFORM  HANDLE-CARD-4, 
ELSE 

PERFORM  BAD-CARD-NUMBER. 

« 


INPUT -SORTED-VOTECH-CARD-IMAGE. 

READ  VOTECH-PILE  INTO  INPUT-CARD  AT  END  MOVE  1 

TO  VOTECH-FILE-FLAG. 

ADD  1  TO  CARD-IMAGES-READ. 

« 

«  « M***************************************************** 

HANDLE-CARD- 1 . 

MOVE  DATA-AREA  OP  INPUT-CARD  TO  CARD-1  OF  T-RECORD. 
HANDLE -CARD-2. 

MOVE  DATA-AREA  OF  INPUT-CARD  TO  CARD-2  OF  T-RECORD. 
HANPLE-CARD-3. 

MOVE  DATA-AREA  OF  INPUT -CARD  TO  CARD-3  OP  T-RECORD. 
HANDLE -CARD-4. 

MOVE  DATA-AREA  OP  INPUT -CARD  TO  CARD-4  OF  T-RECORD. 
BAD-CARD-NUMBER. 

DISPLAY  ’  BAD  CARD  NUMBER',  INPUT -CARD  UPON  PRINTER. 
SUMMARY-STATISTICS, 

DISPLAY  'CARDS  IMAGES  READ'  CARD-IMAGES-READ 
UPON  PRINTER. 

DISPLAY  'NEW  A  RECORDS'  NEW-A-RSCORDS-WRITTEN 
UPON  PRINTER. 

DISPLAY  'NEW  T  RECORDS'  NEW-T-RECORDS-WRITTEN 
UPON  PRINTER. 

DISPLAY  'OLD  A  RECORDS'  OLD-A-RECORDS-REWRITTEN 
UPON  PRINTER. 

DISPLAY  'OLD  T  RECORDS'  OLD-T-RECORDS-REWRITTEN 
UPON  PRINTER. 

:252 


A-39 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 
31: 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


IDEMTIPICATION  DIVISION. 

PROGRAH-ID.  MILPERCEN. 

AUTHOR.  JOHN  HAMILL. 

INSTALLATION.  ABERDEEN  PROVING  GROUND,  MD  ,  21010. 
DATE-WRITTEN.  MAY  1980. 

DATE-CCMPILED. 

SECURITY.  NO  SECURITY  CLEARANCE. 

REMARKS.  THE  PURPOSE  OP  THIS  PROGRAM  IS 

INCORPORATE  MILPERCEN  DATA  ON  TO  A-RECORDS. 
ENVIRONMENT  DIVISION. 

CONPIGURATION  SECTION. 

SOURCE-COMPUTER.  UNIVAC-1108. 

OBJECT-COMPUTER.  UNIVAC-1108. 

INPUT-OUTPUT  SECTION. 

PILE-CONTROL. 

SELECT  ACES-MASTER-PILE  ASSIGN  TO  MASS-STORAGE  MASTER 
ORGANIZATION  IS  INDEXED, 

ACCESS  MODE  IS  SEQUENTIAL 
PROCESSING  MODE  IS  SEQUENTIAL, 

PILE-LIMIT  IS  20000 
ACTUAL  KEY  IS  SEARCH-KEY. 

SELECT  PRINTER 1  ASSIGN  TO  PRINTER. 

SELECT  MILPERCEN  ASSIGN  TO  CARD-READER  EMFDATA. 

DATA  DIVISION. 

PILE  SECTION. 

► 

PD  ACES-MASTER-PILE 

LABEL  RECORDS  ARE  STANDARD, 

RECORD  CONTAINS  300  CHARACTERS, 

BLOCK  CONTAINS  30  RECORDS. 

01  MASTER -RECORD. 

03  SEARCH-KEY. 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X. 

03  DATA -AREA  PIC  XC290), 

PD  MILPERCEN 

LABEL  RECORDS  ARE  STANDARD, 

RECORD  CONTAINS  90  CHARACTERS. 

01  MILPERCEN-RECORD. 

02  MILPERCEN-RECORD-DUMMY. 

05  SSN  PIC  9(9). 

05  MILPERCEN-DATA. 

07  SEX  PIC  X. 

07  RACE  PIC  X. 

07  MARST  PIC  X. 

07  DOB  PIC  X(6). 

07  TERMS  PIC  X. 

07  ETSDT  PIC  X(6). 

07  EGPCD  PIC  X. 

07  BPEDT  PIC  XXXX. 
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102 

103 

104 


105: 

01  SEQUENCED-DATE. 

106: 

03 

YY-DATE  PIC 

99. 

107: 

03 

MM-DATE  PIC 

99. 

106: 

03 

DD-DATE  PIC 

99. 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 


*  SEQUENCED  DATE  IS  THE  DATE  IN  THE  FORM  YTMMDD  TO  ALLOWN 

*  FOR  SORTING  ON  THE  6  FIELD  CODE 


SEARCH  KEY  IS  THE  INDEX  INTO  THE  INDEXEXED  SEQUNTIAL 
DATA  BASE  IT  CONSISTS  OF  A  SOCIAL  SECURITY  NUMBER 
AND  SOME  RECORD  TYPE  (A.B.T,  OR  V) 


THE  A  RECORD  IS  THE  MASTER  RECORD  FOR  THE  ACES  PILE 
A  SOLDIER  MUST  HAVE  AN  A  RECORD  TO  HAVE  A  B,T,  OR  V 
TYre  OF  RECORD  INDEXED  BY  NMNNNNNNA  WHERE  N  IS  A 
NUMERIC  VALUE 

01  A-RECORD. 

02  A-RECORD-DUMMY. 

03  ssn-tym:  . 


123 

05 

SSN  PIC  9(9). 

124 

05 

RFCORD-TYPE  PIC  X  VALUE 

•  k  • 

A  0 

125 

03  MASTER-FLAGS. 

1 26 

05 

BSEP-LIT-STATUS  PIC  9. 

127 

88  NO-B-RECORD  VALUE  0. 

128 

88  BSEP-LIT-PARTIC 

VALUE  1 

129 

88  BSEP-LIT-NON-PARTIC 

VALUE  2. 

130 

05 

PSEP-ESL-STATUS  PIC  9. 

131 

88  NO-B-RECORD 

VALUE  0. 

132 

88  BSEP-ESL-PARTIC 

VALUE  1. 

133 

88  BSEP-ESL-NON-PARTIC 

VALUE  2. 

134 

05 

VO-TECH-STATUS  PIC  9. 

135 

88  NO-T-RECORD 

VALUE  0. 

136 

88  VO-TECH-PARTIC 

VALUE  1. 

137 

88  VO-TECH-NON-PARTIC 

VALUE  2. 

138 

05 

VEAP-STATUS  PIC  9. 

139 

88  MO-V-RECORD 

VALUE 

0. 

140 

88  VEAP-PARTIC 

VALUE 

1 . 

141 

88  VEAP-WITHDRAW-RETURN  VALUE 

2. 

142 

88  VEAP-WITHDRAW-NO-RETURN  VALUE 

3. 

143 

88  VEAP-NON-PARTIC 

VALUE 

4. 

144 

03  A 

-RECORD-STATUS. 

145 

05 

MILPERCEN-FLAG  PIC  9. 

146 

88  MILPERCEN-PRESENT 

VALUE 

1. 

147 

05 

DMDC-FLAG  PIC  9. 

148 

88  DMDC -PRESENT 

VALUE 

1. 

149 

05 

TSC-FLAG  PIC  9. 

150 

38  TSC-PRESENT 

VALUE 

1. 

151 

05 

EREC-FLAG  PIC  9. 

152 

88  EREC -PRESENT 

VALUE 

1. 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 
169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 
19 
196; 

197 

198 

199 

200 


05  CRBATE-DATfi. 

07  CHEATE-YY  PIC  99* 

07  CREATE-MM  PIC  99. 

07  CREATB-DD  PIC  99. 

05  UST-MOD-DATE. 

07  LAST-MOD-YY  PIC  99. 

07  LAST-HOD-MM  PIC  99. 

07  LAST-MOD-DD  PIC  99. 

03  CONTROL-IWPORMATION. 

05  DOB. 

07  DOB-YY  PIC  99. 

07  DOB-MM  PIC  99. 

07  DOB-DD  PIC  99. 

05  SEX  PIC  X. 

88  MALE  VALUE  ’M’. 

88  FEMALE  VALUE  *?'. 

03  MILPERCEN-DATA. 

07  SEX  PIC  X. 

07  RACE  PIC  X, 

07  MARST  PIC  X. 

07  DOB  PIC  X(6). 

07  TERMS  PIC  X. 

07  ETSDT  PIC  X(6). 

07  EGPCD  PIC  X. 

07  BPEDT  PIC  XXXX. 

07  PAYOR  PIC  X. 

07  DOR  PIC  X(6). 

07  AFQSC  PIC  XX. 

07  CIVED  PIC  X. 

07  PMOS  PIC  X(5). 

07  DMOS  PIC  X(5). 

07  TYPLA  PIC  XX. 

07  DA TLA  PIC  X(6). 

07  PS VC I  PIC  X. 

07  EERWA  PIC  XXX. 

07  CMP  PIC  XX, 

07  AITDT  PIC  XXX. 

07  GTSCR  PIC  XXX. 

07  PQDES  PIC  X(4). 

07  PSQDT  PIC  XU). 

07  PQSCR  PIC  XXX. 

07  PQPER  PIC  XX. 

07  SMOS  PIC  X(5), 

07  FILLER  PIC  X(4). 

03  DMDC-DATA  PIC  X(124), 

03  TSC-DATA  PIC  X(56). 


« 
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*  THE  Z-RSCORO  IS  ALWAYS  NAIHTAINBD  ON  THE  ACES  MASTER  FILS 

*  IT  CARRIES  THE  RECORDS  COUNTS,  AND  OTHER  FILE  INFORMATION 

*  CONSULT  SYSTEM  DOCUMENTATION  FOR  RECORD  LAYOUT 

*  INDEX  FOR  Z  RECORD  IS  OOOOOOOOOZ 

01  Z-RBCORD. 

03  SSN-TYPE. 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X  VALUE  '2*. 

03  INTIALIZSD-DATE. 

05  INTIALI2BD-YY  PIC  99* 

05  INTULI2ED-MM  PIC  99. 

05  INTIALI2ED-DD  PIC  99. 

03  UST-MOOIFISD-DATS. 

05  LAST-MODIFIED-YY  PIC  99. 

05  LAST-MODIFIED-NM  PIC  99. 

05  LAST-MODIFISD-DD  PIC  99. 

03  RECORD-COUNTS. 

05  NUHBER-OF-A-RECORDS  PIC  9(7). 

05  NUMBER-OF-B-RECORDS  PIC  9(7). 

05  NUNBER-OF-T-RECORDS  PIC  9(7). 

05  NUMBER-OF-V -RECORDS  PIC  9(7). 

05  TOTAL-RECORDS  PIC  9(11 ). 

*  THE  FOLLOWING  ARE  THE  PRINT  LINES  FOR  THE  STATUS  REPORT 

« 

01  status-report. 

03  LINB-1 . 

05  FILLER  PIC  X(20)  VALUE  SPACES. 

05  FILLER  PIC  X(40)  VALUE  'STATUS  REPORT  ON  ACES  MASTER 
-  '  FILE*. 

03  LINE-2. 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

05  FILLER  PIC  X(e)  VALUE  'TIME 

05  SHOW-TIME  PIC  X(6). 

03  LINE-3. 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

05  FILLER  PIC  X(8)  VALUE  'DATE 

05  SHOW-DATE  PIC  99/99/99. 

03  LINE-4. 

05  FILLER  PIC  X(3)  VALUE  SPACES. 

05  FILLER  PIC  X(ll)  VALUE  ’TYPE  RECORD'. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(13)  VALUE  'FREQUENCIES'. 

05  FILLER  PIC  X(23)  VALUE  SPACES. 

05  FILLER  PIC  X(23)  VALUE  'DATE  INTIALIZED 
05  SHOW-INTIALIZED-DATE  PIC  99/99/99. 

03  LINE-5. 

05  FILLER  PIC  X(l2)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'A'. 

05  SHOW-A-COUNT  PIC  ZZZ.ZZ9. 
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03  LIXS-6. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(l5)  VALUE  ‘S’. 

05  SHOV-B-COUirr  pic  ZZZ.2Z9. 

03  LlllE-7. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'T'. 

05  SHOW-T-COUST  PIC  Z2Z,2Z9. 

05  FILLER  PIC  X(25)  VALUE  SPACES. 

05  FILLER  PIC  X(20)  VALUE  'DATE  LAST  MODIFIED  *. 

05  SHOV-MODIFY-DATE  PIC  99/99/99. 

03  LlRE-8. 

05  FILLER  PIC  X(l2)  VALUE  SPACES. 

05  FILLER  PIC  XOS)  VALUE  ’V*. 

05  SHOW-V -COURT  PIC  Z2Z,Z29. 

03  LIRE-9. 

05  FILLER  PIC  X(28)  VALUE  SPACES. 

05  FILLER  PIC  X(6)  VALUE  ’ - 

03  LINE-10. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X05)  VALUE  ‘TOTAL*. 

05  SHOW-SUM-ABTV-RECORDS  PIC  22Z,Z2Z,999. 

01  RECORD-COUNTERS. 

03  MILPERCEN-RECORDS-READ  PIC  9(9)  VALUE  0. 

03  UPDATED-A-RECORDS  PIC  9(9)  VALUE  0. 

01  MILPERCEN-RECORD-FLAG  PIC  9. 

88  MILPERCEN-RECORD-MATCHBS  VALUE  0. 

88  RECORD-REJECTED  VALUE  1 . 

01  ACES-FILE-FLAG  PIC  9  VALUE  0. 

88  EOF-ACES-MASTER-FILE  VALUE  1 . 

01  MILPERCEN-FILE-FLAG  PIC  9  VALUE  0. 

88  EOF-MILPERCEN-FILE  VALUE  1. 

PROCEDURE  DIVISION. 

MAIN-LINE. 

OPEN  OUTPUT  PR INTER 1 . 

PERFORM  SET-UP-ACES-MASTER-FILE. 

PERFORM  SET-UP-MI LPERCEN-DATA-T APE . 

PERFORM  INPUT-NEXT-A -RECORD. 

DISPLAY  '  BEGIN  MILPERCEN  UPDATE,  PRIMING  RECORDS  ARE  ' 

UPON  PRINTER. 

DISPLAY  ’  MASTER-RECORD  -  *  MASTER-RECORD. 

DISPUY  ’  MILPERCEN-DATA  -  ‘  MILPERCEN-RECORD. 

PERFORM  PROCESS -SOLDIER  THROUGH  INPUT-NEXT -A-RECORD 

UNTIL  EOF-ACES-MASTER-FILE  OR  EOF-MILPERCEN-FILE. 

*  CHANGE  THE  10  TIMES  TO  EOF-ACES-MASTER-PILE  MARKER  AFTER  TESTING  JNH 

*  AND  EOF-MILPERCEN-FILE  NOTE  THAT  BOTH  WILL  SHUT  OFF  PROCESS 

PERFORM  SHUT-DOWN-ACES-MASTER-FILE. 

PERFORM  SUMMARY-STATS. 

STOP  RUN. 
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SET-UP-MILPERCEN-DATA-TAPE. 

OPEN  INPUT  MILPERCEN. 

CLOSE  MILPERCEN. 

OPEN  INPUT  MILPERCEN. 

MOVE  0  TO  MILPERCEN-PILE-PLAG. 

PERPORM  INPUT -MILPERCEN-RECORD. 

«  «*«««*««««««»»»*«•«»««»«««»***»««*****«««*«««*««»* 


SET-UP-ACES-MASTER-PILE . 

THIS  ROUTINE  WILL  BE  THE  PIRST  STEP  IN  ANY  RUN 
INVOLVING  THE  ACES-MASTER-PILE. 

OPEN  I-O  ACES-MASTER-PILE. 

MOVE  ZEROES  TO  SSN  OF  SEARCH-KEY. 

MOVE  'Z'  TO  RECORD-TYPE  OF  SEARCH-KEY. 

READ  ACES-MASTER-PILE  INTO  Z-RECORD, 

AT  END  MOVE  1  TO  ACES -FILE-FLAG. 

PERFORM  PRINT-STATUS-REPORT. 

PRINT-STATUS-REPORT. 

MOVE  THE  DATA  OFF  Z-RECORD  TO  REPORT  PRINT  LINES 

P 

MOVE  INTIALIZED-DATE  OF  Z-RECORD  TO  SHOW-INTIALIZED-DATE 

OF  STATUS -REPORT. 

MOVE  LAST-MODIFIED-DATE  TO  SHOW-MODIFY-DATE. 

MOVE  NUMBER-OF-A-RECORDS  TO  SHOW-A-COUNT. 

MOVE  NUMBER-OP-B-RECORDS  TO  SI  ' 


* 

« 

* 


« 

« 

« 


MOVE  INTIALIZED-DATE  OP  Z-RECORD  TO  SHOW-INTIALIZED-DATE 

OP  STATUS-REPORT. 

MOVE  LAST-MODIFIED-DATE  TO  SHOW-MODIi Y-DATE. 

MOVE  NUMBER-OF-A-RECORDS  TO  SHOW-A-COUNT. 

MOVE  NUMBER-OF-B-RBCORDS  TO  SHOW-B-COIHIT . 

MOVE  NUMBER-OP-T-RECORDS  TO  SHOW-T -COUNT. 

MOVE  NUMBER-OP-V-RECORDS  TO  SHOW-V-COUNT. 

MOVE  TOTAL-RECORDS  TO  SHOW-SUM-ABTV-RECORDS . 


GET  THE  CORRECT  TIME  AND  DATE 
PLACE  TIME,  DATE  INTO  REPORT  PAGE 
PERPORM  INTIALIZE-DATE-TIME. 

MOVE  MACHINE-TIME  TO  SHOW-TIME  OP  STATUS-REPORT  . 

MOVE  SEQUENCED-DATE  TO  SHOW-DATE  OF  STATUS-REPORT. 
WRITE  THE  STATUS  REPORT 

WRITE  PRINT-LINE  PROM  LlNE-1  OP  STATUS-REPORT  AFTER 

PAGE-TOP  LINES. 

WRITE  PRINT-LINE  PROM  LINE-2  OP  STATUS-REPORT  AFTER  2  LINES 

WRITE  PRINT-LINE  PROM  LINE-3  OP  STATUS-REPORT  AFTER  2  LINES 

WRITE  PRINT-LINE  FROM  LINE-4  OP  STATUS-REPORT  AFTER  2  LINES 

WRITE  PRINT-LINE  PROM  LINE-5  OP  STATUS-REPORT  AFTER  2  LINES 

WRITE  PRINT-LINE  PROM  LINE-6  OF  STATUS-REPORT  AFTER  2  LINES 
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WRITE  PRINT-LINE  PROF  LINE-7  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-8  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-9  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-10  OF  STATUS-REPORT  AFTER  2  LINES. 

« 

INTIALI2E-DATE-TIME. 

* 

ACCEPT  MACHINE -DATE-TIME  PROM  DATE-TIME. 

MOVE  CORRESPONDING  MACHINE-DATE  TO  SEQUENCED-DATE. 

* 

* 

SHUT-DOWN-ACES-MASTER-FILE. 

*  A  STATUS  REPORT  WILL  BE  GENERATED 

*  ALL  COUNTERS  WILL  BE  UPDATED 

*  A  MODIFIED  Z-RECORD  WILL  BE  REWRITTEN 

*  ACES-MASTEPILE  WILL  BE  CLOSED 
PERFORM  PRINT-STATUS-REPORT. 

PERFORM  WRITE-Z-RECORD. 

CLOSE  ACES -MASTER-PILE,  MILPERCEN. 

« 

WRITE-Z-RECORD, 

MOVE  SEQUENCED-DATE  TO  LAST-MODIFIED-DATE  OP  2-RECORD. 

MOVE  Z-RECORD  TO  MASTER-RECORD. 

REWRITE  MASTER-RECORD 

INVALID  KEY  DISPLAY  ’Z  RECORD  NOT  WRITTEN' 

UPON  PRINTER. 

*  ««*«««*»«««**««*««*«*««««*»#«»«*«*««««*«*****««***»««'»**«*»**««* 

*  THE  FOLLOWING  PORTION  OF  THE  PROGRAM  IS  STRICTLY  FOR  MILPERCEN 

*  PILE  PROCESSING 

»  *»»»»» Him »»*»»»»» N  «  IHHK  « II »*»»»»#»»»»»» 

*  THIS  IS  THE  TOP  OP  THE  MILPERCEN  PROCESSING  LOOP 

*  IT  WILL  BE  REPEATED  A  NUMER  OP  TIMES  EQUAL  TO  THE 

*  NUMBER  OP  MILPERCEN  DATA  RECORDS 

*  ««««»*»«#»«»»»«*««»«««««*««««»*«««»*»«*«»«%»»««*«*««««« 

PROCESS-SOLDIER. 

* 

ADD  1  TO  DUMMY-COUNTER. 

IF  DUMMY-COUNTER  EQUALS  200 

MOVE  ZEROS  TO  DUMMY-COUNTER 
DISPLAY  '  SSN  OP  MASTER -RECORD,  '  AT  MIL  -  ’, 
MILPERCEN-RECORDS-READ  UPON  PRINTER. 

*  NEXT  WE  WILL  SEE  IF  THERE  IS  MILPERCENN  A-RECORD  ON  THIS  SOLDIER  AND 

*  DETERMINE  BY  MEANS  op  A  SEX  COMPARISON  IP  THE  TWO  ARE  THE 

*  SAME  IE  MILPERCEN  INPUT  AND  THE  A-RECORD 

PERFORM  INPUT -MILPERCEN-RECORD  UNTIL 

SSN  OP  MIuPERCEN-RECORD  IS  NOT  LESS  THAN 
SSN  OP  MASTER -RECORD. 

« 
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*  IP  THERE  IS  A  MILPERCEN  RECORD  IT  WILL  NOW  BE  IN 

*  CORE  NEXT  WE  CHECK  TO  SEE  IF  THEY  MATCH 

PERFORM  VERIPY-MILPERCEN-MATCH. 

* 

*  NOW  IP  THE  A-RECORD  WAS  MATCHED  WITH  MILPERCEN 

*  THE  A-RECORD  CAN  BE  UPDATED  AND  REWRITTEN 

*  OTHERWISE  WE  WILL  PRINT  THE  A-RECORD  FOR  NOT 

*  NOT  HAVING  A  MILPERCEN  RECORD 

IP  MILPERCEN-RECORD-MATCHES 

PERFORM  UPDATE-A -RECORD, 

PERFORM  REWRITE-A-RECORD, 

ELSE 

ADD  1  TO  NO-MIL-DATA-C GUNTER. 

INPUT-NEXT-A-RECORD. 

*  SINCE  THERE  IS  MORE  THAN  ONE  TYPE  OP  RECORD  WE  SELECT  ONLY 

*  THE  MASTER  RECORD  FOR  EACH  SOLDIER 

PERFORM  INPUT -NEXT-LOGICAL-RECORD. 

PERFORM  INPUT-NEXT-LOGICAL-RECORD  UNTIL 
EOF -ACES-MASTER-FI LE 
OR 

RECORD-TYPE  OP  MASTER -RECORD  EQUALS  'A'. 
INPUT-NEXT-LOGICAL-RECORD. 

READ  ACES -MASTER-PILE  INTO  A-RECORD 

AT  END  MOVE  1  TO  ACBS-PILE-PLAG. 

IP  SSN  OF  A-RECORD  EQUALS  999999999 

MOVE  1  TO  ACES-PILE-PLAG. 

VERIFY-Ml LPERCEN-MATCH . 

*  NOTE  THAT  ANY  VALIDATION  OP  THE  RECORDS  SHOULD  BE  DONE  HERE 

MOVE  0  TO  MILPERCEN-RECORD-PLAG. 

IF  SSN  OP  MILPERCEN-RECORD  NOT  EQUAL 

SSN  OP  MASTER -RECORD  MOVE  1  TO  MILPERCEN-RECORD-PLAG, 

*  DISPUY  '  NO  DATA  -  ',  SSN  OF  MASTER-RECORD, 

*  '  -  NEXT  MIL  -  ',  SSN  OF  MILPERCEN-RECORD 

*  UPON  PRINTER. 

IP  MILPERCEN-RECORD-MATCHES 

AND  SEX  OF  MILPERCEN-RECORD 

NOT  EQUAL  SEX  OP  CONTROL-INFORllATION  OP  A-RECORD 
DISPLAY  •  BAD  MATCH  ON  SEX’, 

SEX  OP  MILPERCEN-RECORD,  'MIL', 

SEX  OP  CONTROL-INFORMATION  OF  A-RECORD, 

'A'  UPON  PRINTER. 

*  HOVE  1  TO  MILPERCEN-RECORD-PLAG. 

* 

UPDATE-A-RECORD. 

*  HERE  WE  WILL  MOVE  ALL  THE  DATA  WE  WISH  OFF  THE'  MIL  RECORD 

*  AND  INTO  THE  A-RECORD 

MOVE  CORRESPONDING  MILPERCEN-DATA  OF  MILPERCEN-RECORD 
TO  MILPERCEN-DATA  OF  A-RECORD. 
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*  PUCE  BIRTH  DATE  AND  SEX  IN  CONTROL  IF  NOT  THERE  ALREADY 

» 

IF  DOB-YY  OF  CONTROL-INFORMATION  LESS  THAN  20 
OR  GREATER  70 

MOVE  DOB  OF  MILPERCEN-RECORD  TO  DOB  OF 
CONTROL-INFORMATION. 

IF  SEX  OF  CONTROL-INFORMATION  EQUAL  SPACES 
MOVE  SEX  OP  MILPERCEN-RECORD  TO 
SEX  OP  CONTROL-INFORMATION. 

ADD  1  TO  UPDATED-A-RECORDS. 

MOVE  1  TO  MILPERCEN-FLAG. 

REWRITE-A -RECORD. 

MOVE  'A'  TO  RECORD-TYPE  OF  SEARCH-KEY. 

MOVE  SEQUENCED-DATE  TO  UST-MOD-DATE  OP  A- RECORD. 

MOVE  A-RECORD  TO  MASTER-RECORD. 

REWRITE  MASTER-RECORD 

INVALID  KEY  DISPUY 

'  INVALID  ATTEMPT  REW3I  *A*  REC’ 

UPON  PRINTER. 

INPUT-MILPERCEN-RECORD. 

READ  MILPERCEN  AT  END  MOVE  1  TO  MILPERCEN-FILE-FLAG. 
ADD  1  TO  MILPERCEN-RECORDS-READ. 

« 

*  WANT  TO  DO  A  SEQUENCE  CHECK  ON  THESE  RECORDS 

* 

IF  SSN  OF  MILPERCEN-RECORD  NOT  GREATER  THAN  SEQ-CHECK 
DISPUY  'SEQUENCE  PROBLEM  -  NE’rf  REC  ’  SSN  OF 
MILPERCEN-RECORD 

DISPUY  '  OLD  REC  '  SEQ-CHECK. 

MOVE  SSN  OP  MILPERCEN-RECORD  TO  SEQ-CHECK. 

*  IP  MILPERCEN-RECORDS-READ  GREATER  THAN  119200 

*  MOVE  1  TO  MILPERCEN-FILE-FLAG. 

SUMMARY -STATS. 

DISPUY  MILPERCEN-RECORDS-READ,  'MIL  RECS  READ' 

UPON  PRINTER. 

DISPUY  NO-MIL-DATA-COUNTER,  'NO  MIL  DATA' 

UPON  PRINTER. 

DISPUY  UPDATED-A-RECORDS,  'UPDATED  A  RECS' 

UPON  PRINTER. 


SCAN: 135 
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IDENTIFICATION  DIVISION. 

PROGRAM-ID.  SSN. 

AUTHOR.  JOHN  HANILL. 

INSTALLATION.  ABERDEEN  PROVING  GROtmD,  MD  ,  21010. 
DATE-WRITTEN.  MAI  1980. 

DATE-COMPILED. 

SECURITY.  NO  SECURITY  CLEARANCE. 

REMARKS.  THE  PURPOSE  OP  THIS  PROGRAM  IS 
PRODUCE  TWO  TYPES  OP  OUTPUT 

I)  THOSE  SOLDIERS  WHO  HAVE  BEEN  ACCEPTED  INTO 
THE  PROGRAM  IB  SELECTABLE-ABLE-TEST-SCORE 
OF  LESS  THAN  50  OR  BCL-PRETEST 
OF  LESS  THAN  70 

II)  THOSE  SOLDIERS  WHO  HAVE  NOT  BEEN  ACCEPTED 
INTO  THE  PROGRAM  (WHICH  SHOULD  BE  FEW) 
AND  HAVE  HIGHER  ECL  PRE  TEST  SCORES 
AND  SELECT-ABLE-TEST-SCORES 
ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  UNIVAC-1108. 

OBJECT-COMPUTER.  UNIVAC-1108. 

INPUT -OUTPUT  SECTION. 

FILE-CONTROL. 

SELECT  ACES-MASTER-FILE 

ASSIGN  TO  MASS-STORAGE  MASTER 
ORGANIZATION  IS  INDEXED, 

ACCESS  MODE  IS  SBOUENTIAL, 

FILE-LIMIT  IS  2300 

ACTUAL  KEY  IS  DUM-SEARCH-KEY. 

SELECT  PRINTERI  ASSIGN  TO  PRINTER. 

SELECT  SSN-LIST  ASSIGN  TO  PRINTER  SSNLIST. 

DATA  DIVISION. 

FILE  SECTION. 

► 

FD  ACES-MASTER-FILE 

LABEL  RECORDS  ARE  STANDARD, 

RECORD  CONTAINS  300  CHARACTERS, 

BLOCK  CONTAINS  30  RECORDS. 

i 

01  MASTER-RECORD. 

03  SEARCH-KEY. 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X. 

03  DATA -AREA  PIC  X(290). 

FD  PRINTERI 

LABEL  RECORDS  ARE  OMITTED 

DATA  RECORD  IS  PRINT-LINE. 

01  PRINT-LINE. 

03  CARRIAGE-CONTROL-CHARACTER  PIC  X. 

03  PRINT-DATA  PIC  X(121). 
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FD  SSN-LIST 

LABBi.  RECORDS  ARE  OMITTED 

DATA  RECORD  IS  SSN-DATA. 

01  SSN>DATA. 

03  SSN-CODE  PIC  9(9). 

03  REST  PIC  X(71). 

WORKING-STORAGE  SECTION. 

77  DUM-SEARCH-KEY  PIC  K(lO). 

77  DUMMY-COUNTER  PIC  9(6)  VALUE  0. 

01  SOLDIER-PRINT-AREA. 

03  PRINT-AREA-1 . 

05  SSN  PIC  9(9). 

05  FILLER  PIC  X(10)  VALUE  ’DOB’. 

05  FILLER  PIC  X(3)  VALUE  SPACES. 

05  DOB  PIC  XXAXAX  . 

*  MACHINE  DATE-TIME  IS  ACCEPTED  PROM  THE  SYSTEM  AND 

*  IS  PRINTED  OUT  WHEN  FILES  ARE  OPENED  AND  CLOSED 

« 

01  MACHINE-DATE-TIME. 

03  MACHINE-DATE. 

05  MM-DATE  PIC  99. 

05  DD-DATE  PIC  99. 

05  YY-DATE  PIC  99. 

03  MACHINE-TIME. 

05  HOUR-DATE  PIC  99. 

05  MIN-DATE  PIC  99. 

05  SEC-DATE  PIC  99. 

« 

*  SEQUENCED  DATE  IS  THE  DATE  IN  THE  FORM  YYMMDD  TO  ALLOWN 

*  FOR  SORTING  ON  THE  6  FIELD  CODE 

* 

01  SEQUENCED-DATE. 

03  YY-DATE  PIC  99. 

03  MM-DATE  PIC  99. 

03  DD-DATE  PIC  99. 

« 

*  SEARCH  KEY  IS  THE  INDEX  INTO  THE  INDEXEXED  SEQUNTIAL 

*  DATA  BASE  IT  CONSISTS  OP  A  SOCIAL  SECURITY  NUMBER 

*  AND  SOME  RECORD  TYPE  (A.B.T,  OR  V) 

* 

» 

*  THE  A  RECORD  IS  THE  MASTER  RECORD  FOR  THE  ACES  FILE 

*  A  SOLDIER  MUST  HAVE  AN  A  RECORD  TO  HAVE  A  B,T,  OR  V 

*  TYPE  OF  RECORD  INDEXED  BY  NNNNNNNNNA  WHERE  N  IS  A 

*  NUMERIC  VALUE 

« 
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99: 

01  A-RECORD. 

100; 

02  A-RSCORD-SUNNY. 

101 : 

03  SSN-TYM  . 

102: 

05 

SSN  PIC  9(9). 

103: 

05 

RECORD-TYPE  PIC  X  VALUE 

'A'. 

104: 

03  MASTBR-PLAOS. 

105: 

05 

BLfiP-LIT-STATUS  PIC  9. 

106: 

88  NO-B-RECORD  VALUE  0. 

107; 

G8  BSEP-LIT-PARTIC 

VALUE  1 . 

108: 

88  BSEP-LIT-NON-PARTIC 

VALUE  2 

109: 

05 

BSEP-ESL-STATUS  PIC  9. 

110: 

88  NO-B-RSCORD 

VALUE  0. 

111: 

88  BSEP-BSL-PARTIC 

VALUE  1. 

112: 

88  BSEP-ESL-NON-PARTIC 

VALUE  2. 

113: 

05 

VO-TECH-STATUS  PIC  9* 

114: 

88  NO-T-RECORD 

VALUE  0. 

115: 

88  VO-TECH-PARTIC 

VALUE  1. 

116; 

38  VO-TECH-NON-PARTIC 

VALUE  2. 

1 17: 

05 

VEAP-STATUS  PIC  9* 

1 18: 

88  NO-V-RECORD 

VALUE  0. 

119: 

88  VEAP-PARTIC 

VALUE  1. 

1  20: 

88  TEAP-WITHDRAW-RETURN  VALUE  2. 

121 : 

88  VEAP-WITHDRAW-NO-RETURN  VALUE  3. 

122: 

88  VEAP-NON-PARTIC 

VALUE  4. 

123: 

03  A 

-RECORD-STATUS. 

124: 

05 

MILPERCEN-PLA.G  PIC  9. 

125; 

88  MILPERCEN-PRESENT 

VALUE  1. 

126: 

05 

DMDC-FLAG  PIC  9. 

127: 

88  DMDC-PRESENT 

VALUE  1. 

128: 

05 

TSC-FLAG  PIC  9. 

129: 

88  TSC-PRESENT 

VALUE  1. 

130: 

05 

EREC-FLAG  PIC  9. 

131 : 

88  EREC -PRESENT 

VALUE  1. 

132; 

05 

CREATE-DATE. 

133: 

07  CREATE-YY  PIC  99- 

134; 

07  CREATE-MM  ?I0  99. 

135: 

07  CREATE-DD  PIC  99* 

136: 

05 

LAST-:iOD-DATS. 

137; 

07  LAST-MOD-YY  PIC  99- 

138; 

07  LAST-MOD-HM  PIC  99. 

139: 

07  LAST-MOr-DD  PIC  99. 

140: 

03  CONTROL-INFORMATION. 

141; 

05 

DOB. 

142; 

07  EOB-YY  FIC  99. 

143: 

07  DO.  -MM  PIC  99. 

144: 

07  DOB-DD  PIC  99. 

145: 

05 

SEX  PIC  X. 

146: 

88  MALE  VAUTE  ’K'. 

147: 

88  FEMALE  VALUE  'F*. 

A-S2 


148: 

149: 

150: 

151: 

152: 

153: 

154: 

155: 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 
167 
163 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 


03  MILPERCER-DATA. 

07  SBX  PIC  X. 

07  RACE  PIC  X. 

07  KARST  PIC  X. 

07  DOB  PIC  X(6). 

07  TBRKS  PIC  X. 

07  STSDT  PIC  X(6). 

07  EQPCD  PIC  X. 

07  BP2L?  XXXX. 

07  PAYOR  PIC  X. 

07  DOR  PIC  X(6). 

07  APQSC  PIC  XX. 

07  CIVED  PIC  X. 

07  PMOS  PIC  X(5). 

07  DMOS  PIC  X(5). 

07  TYPLA  PIC  XX. 

07  DATLA  PIC  X(6). 

07  PSVCI  PIC  X. 

07  EERWA  PIC  XXX. 

07  CMP  PIC  XX. 

'  07  AITDT  PIC  XXX. 

07  GTSCR  PIC  XXX. 

07  PQDES  PIC  X(4). 

07  PSQDT  .->10  xU). 

07  PQSCR  PIC  XXX. 

07  PQPER  PIC  XX. 

07  SMOS  PIC  X(5). 

07  FILLER  PIC  X(4). 

03  DMDC-DATA  PIC  X(l24). 

03  TSC-DATA  PIC  X(56). 


*  THE  Z-RECORD  IS  ALWAYS  MAINTAINED  ON  THE  ACES  MASTER  FILE 

*  IT  CARRIES  THE  RECORDS  COUNTS,  AND  OTHER  PILE  INFORMATION 

*  CONSULT  SYSTEM  DOCUMENTATION  FOR  RECORD  LAYOUT 

*  INDEX  FOR  Z  RECORD  13  OOOOOOOOOZ 

01  Z-RECORD. 

03  SSN-TYPE. 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X  VALUE  'Z*. 

03  INTIALIZSD-DATE. 

05  INTIALIZED-YY  PIC  99- 

05  INTIALIZED-MM  PIC  99. 

05  INTIALIZED-DD  PIC  99. 

03  LAST-MODIPIED-DATE. 

05  LAST-MODIPIED-YY  PIC  99. 

05  LAST-MODIPIED-MM  PIC  99. 

05  LAST-MODIFIED-DD  PIC  99. 
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198: 
199: 
200: 
301: 
202: 
203: 
204: 
203: 
206: 
207: 
206: 
209: 
210: 
211  : 
212: 
213: 
214: 
215: 
216; 
217; 
218: 
219: 
220: 
221: 
222: 
223: 
224: 
223: 
226: 
227: 
228: 
229: 
230: 
231: 
2^2; 
233: 
234; 
235; 
236: 
237: 
238: 
239: 
240: 
241: 
242: 
243; 
244: 
245: 
246: 
247: 


03  RBCORS-COUNTS. 

03  NUNBSR-OF-A*RBCORDS  PIC  9(7). 

03  HU!tBBR-OF-B*RSCORDS  PIC  9(7). 

03  RUMBBR-OF-T'RSCORDS  PIC  9(7). 

05  NUKBER-OF-V -RECORDS  PIC  9(7). 

05  TOTAL-RECORDS  PIC  9(11). 


01  SOLDIER-LINE. 

03  FILLER  PIC  X  VALUE  SPACES. 

03  SSN  PIC  9(9). 

03  FILLER  PIC  X(5)  VALUE  SPACES. 

03  DOB  PIC  9(6). 

*  THE  FOLLOWING  ARB  THE  PRINT  LINES  FOR  THE  STATUS  REPORT 


01  STATUS-REPORT. 

03  LIME-1 . 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

05  FILLER  PIC  X(40)  VALUE  ’STATUS  REPORT 
•  PILE • . 

03  LINE-2. 

05  FILLER 
05  FILLER 
05  SHOW-TIME 
03  LINE-3. 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

X(8) 

PIC 


ON  ACES  MASTER 


PIC  X(30)  VALUE  SPACES. 
PTC  X(8)  VALUE  ’TINE 
X(6). 


PIC 


05  FILLER  PIC 
05  SHOW-DATE 
03  LINE-4. 

05  FILLER  PIC 
FILLER 
FILLER 
FILLER 
FILLER 
f:  .LBR 


VALUE  'DATE 
99/99/99. 


PIC 

PIC 

PIC 

PTC 

PIC 


X(23)  VALUE 
X(23)  VALUE 


05 
05 
05 
05 
05 

05  SKi  V-INTIALIZED-DATE  PIC 
03  LINE-5. 

05  FILLER  PIC 
05  FILLER  PIC 
05  SHOW-A-COUNT 
03  LINE-6. 

05  FILLER  PIC 
05  FILLER  PIC 
05  SHOW-B-COUNT 
03  LINE-7. 

05  FILLER  PIC 
FILLER  PIC 
SHOW-T-COUNT 
FILLER  PIC 
FILLER  PIC 


X(3)  VALUE  SPACES. 

X(11)  VALUE  ’TYPE  RECORD’. 
X(9)  VALUE  SPACES. 

X(13)  VALUE  ’FREQUENCIES’. 

SPACES. 

’DATE  INTIALIZED 
99/99/99. 


X(12)  VALUE  SPACES. 
X(15)  VALUE  ’A’. 
PIC  Z3Z,Z29. 


X(12) 

X(15) 

PIC 


VALUE  SPACES. 
VALUE  ’B’. 
ZZZ.ZZ9. 


05 

05 

05 

05 

05 


X(12)  VALUE  SPACES. 

X(15)  VALUE  ’T’. 

PIC  Z2Z,ZZ9. 

X(25)  VALUE  SPACES. 

X(20)  VALUE  ’DATE  LAST  MODIFIED 


SHOW-NODIFY-DATE  PIC  99/99/99. 
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248t 
249  J 
250 1 
251 : 
252: 
253: 
254: 
255: 
256: 
257: 
256: 
259: 
260: 
261 : 
262: 
263: 
2S4: 
265: 
266: 
267: 
268: 
269: 
270: 
271  : 
272: 
273: 
274: 
275: 
276: 
277: 
278: 
279: 
280: 
281 : 
282: 
283: 
284: 
285: 
286: 
287: 
288: 
289: 
290: 
291  ; 
292: 
293: 
294: 
295: 
296: 
297: 
298: 


03  LXltB-8. 

05  PXUSR  PXC  X(12)  VALUE  SPACES. 

05  PXXJ.ER  PIC  X(15)  VALUE  ’V. 

05  SHOV-V-COUMT  PIC  Z2Z»ZZ9. 

03  LXRE-9. 

05  FILLER  PIC  X(28)  VALUE  SPACES. 

05  FILLER  PIC  X(6)  VALUE* - '. 

03  LIME-10. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  *70TAL'. 

05  SHOV-SUN-ABTV-RBCORLS  PIC  ZZZ»ZZZ,999. 

01  CRBATBD-A-RBCORO-FUO  PIC  9. 

88  OLO-A-RECORS  VALUE  0. 

88  NEV-A-RSCORO  VALUE  1 . 

01  CRBATED-B-RECORO-FLAC  PIC  9. 

88  OLD-B-RECORD  VALUE  0. 

88  NEW-B-RECORL  VALUE  1 . 

01  TRADOC-FIIE-FLAO  PIC  9. 

88  EOF-TRAUOC-DATA-TAPE  VALUE  1 . 

01  RECORD-COUNTERS. 

05  NUNBER-RBCOIDS-READ  PIC  9(9)  . 

03  NUNBER-RECORDS-PRIMTSD  PIC  9(9). 

01  ACES-FILB-FLAG  PIC  9  VALUE  0. 

88  EOP-ACES-FILE  VALUE  1 . 

PROCEDURE  DIVISION. 

MAIN-LINE. 

OPEN  OUTPUT  PRINTER1 ,  SSN-LIST. 

DISPLAY  ’  BEGIN  EXECUTION  OP  SSM  DUMP’  UPON  PRINTER. 
PERFORM  SEX-UP-ACES-MASTSR-PILE. 

PERFORM  INTIALIZE-SOLDIBR-COUNTERS. 

PERFORM  PROCESS-SOLDIERS 

UNTIL  EOF-ACES-PILE. 

PERFORM  SHUT-DOWN-ACSS-MASTER-FILE. 

CLOSE  SSN-LIST,  PRINTER1 . 

DISPLAY  ’  •  UPON  raiNTER. 

DISPUY  '  RECORDS  READ  -  NUMBBR-RECORDS-READ 
UPON  PRINTER. 

DISPLAY  NUMBER-RECORDS-PRINTSD,  ’  RECORDS  WRITTEN  TO 
•  PIIB  SSN-LIST  •  UPON  PRINTER. 

DISPLAY  '  END  OP  EXECUTION  SSN.’  UPON  PRINTER. 

STOP  RUN. 

SET-UP-ACES-MASTER-FILE . 

•  THIS  ROUTINE  WILL  BE  THE  FIRST  STEP  IN  ANY  RUN 

*  INVOLVING  THE  ACES -MASTER-FILE. 

OPEN  INPUT  ACES-MASTER-FILE. 

READ  ACES-MASTER-FILE  INTO  Z-RECORD, 

AT  END  DISPLAY  '  NO  Z  RECORD'  UPON  PRINTER, 
STOP  RUN. 

PERFORM  PRINT-STATUS-REPORT. 
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299» 

300: 

301: 

302: 

303: 

304: 

305: 

306: 

30r?: 

306: 

309: 

310: 

311: 

312: 

31?: 

314: 

315: 

316: 

317: 

318: 

319: 

320: 

321: 

322: 

323: 

324: 

325: 

326: 

327: 

328: 

329: 

330; 

331: 

332; 

333: 

334: 

335; 

336; 

337: 

338: 

339; 

340; 

341: 

342: 

343: 

344: 

345: 

346: 

347: 


PRINT-STATUS-RSPORT. 

*  MOVE  THE  DATA  OFF  Z-RECORD  TO  REPORT  FRIFT  LINES 

« 

MOVE  INTIALIZED-DATE  OF  Z-RECORD  TO  SKgV>:NTIALlZSO«DATS 

MOVE  UST-NODIFIEO-DATB  TO  SHOV-NODXFT-DATE. 

KOVE  RUNBER-OF-A*RS:ORDS  TO  3H0V-A*C0UIIT. 

NOVE  RUNBSR-OF-B>RBCORDS  TO  SHOV>B-COUMT. 

NOVE  NUNBER-OF-T-RECOROS  TO  SHOV-T*COUNT. 

HOVE  mmBSR.OF-V<RECORDS  TO  SHOW^V-COUNT. 

ROVE  TOTAL-RECORDS  TO  SHOV-SUN-ABTY-RSCORDS. 

*  OST  THE  CORRECT  TINE  AND  DATS 

*  PLACE  TINE.  DATS  INTO  REPORT  PAGE 
PERFORN  INTIALIZE-DATB-TINB. 

NOVE  NACHINB-TINS  TO  SHOV-TINS  OF  STATUS-REPORT  . 

NOVE  SBQUENCSD-DATS  TO  SHOV-DATS  OF  STATUS-REPORT. 

*  WRITE  THE  STATUS  REPORT 

*  WRITE  PRINT-LINE  FRON  LINE-1  OP  STATUS-REPORT  AFTER 

*  PAGE-TOP  LINES. 

WRITE  PRINT-LINE  FROH  LINB-2  OF  STATUS-REPORT  AFTER  2  LINES. 

WHITE  PRINT-LINE  FROM  LIHB-3  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-4  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-5  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINB-6  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LIMB -7  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-S  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-9  OP  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-10  OF  STATUS-REPORT  AFTER  2  LINES. 

INTIALIZE-DATE-TIME. 


ACCEPT  MACKINB-DATE  PROM  DATE. 

ACCEPT  MACHINE-TIME  PROM  TIME. 

MOVE  CORRESPONDING  MACHINE-DATE  TO  SEQUBNCBD-DATE. 


SHUT -DOWN-ACES-MASTER-PILE . 

*  ACES-MASTEFILE  WILL  BE  CLOSED 
CLOSE  ACES-MASTER-FILB. 

« 

*  THE  FOLLOWING  PORTION  OF  THE  PROGRAM  IS  STRICTLY  FOR  SSN 

*  PILE  PROCESSING 

*  THIS  IS  THE  TOP  OF  THE  SSN  PROCESSING  LOOP 

*  IT  WILL  BE  REPEATED  A  NUMER  OP  TIMES  EQUAL  TO  THE 

*  NUMBER  OP  DATA  RECORDS 
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348t 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 
361 

362 

363 

364 

365 

366 
367 
366 
369 
570 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 
381 
382 

383 

384 

385 

386 

387 

388 
389 

EOF: 389 


IRTIALXZB-SOLDZBlt-COUIITSRS. 

NOVB  ZEROS  TO  RECORD-COURTBRS. 

*  IP  JUST  A  LISTIRQ  OP  SSR  IS  DESIRES  THE  POILOVINO 

*  CODE  SHOULD  BE  LEPT  IH 

PERPORH  INPUT-ACBS>RSCORD  UNTIL 

RBCORD-TVPB  OF  RASTER -RECORD  EQUAL  *A* 

OR 

EOP-ACSS-PILS* 

IP  RECORD-TYPE  OP  KASTER-RBCORD  IS  EQUAL  TO  'A* 

NOVB  NASTSR-RBCORD  TO  A-RBCORD 
PBRPORN  PRINT-SOLDIER. 

IF  ROT  BOF-ACBS-PILB  PERFORM  IMPUT-ACES-RECORD. 

*  IN  THE  EVENT  THAT  A  PARTICUUR  CONDITION  IS  REQUESTED 

*  IB  SATISFTIES  ONE  OF  THE  STATUS  FUGS  IT  VILL 

*  BE  IMPLEMENTED  HERB 

*  NOTE  THE  REMAINING  LINES  ARE  COOED  IN  ANSI  BUT  ARE 

*  ENTRIES  MERELY  PULL  THE  *  COMMENT  CHARACTER 

*  THE  REST  HERE  NOT  IMPLEMENTED  AS  DEEMED  UNNESECARY 
INPUT -ACSS-RECORD. 

READ  ACES-MASTBR-FILE 
AT  EPS  MOVE  1  TO  ACES-PILE-FUG 
HOVE  999999999  TO  SSN  OP  MASTER-RECORD 
MOVE  'X'  TO  RECORD-TYPE  OP  MASTER-RECORD. 

IP  SSN  OP  MASTER-RECORD  EQUALS  999999999  MOVE 
1  TO  ACES-FILB-PLAG. 

ADD  1  TO  NUMBBR-RECORDS-RBAD. 

ADD  1  TO  DUMMY-COUNTER. 

IF  DUMMY-COUNTER  GREATER  THAN  500 

DISPUY  *  COUNT  -  NUMBER-RECORDS-PRINTED 
UPON  PRINTER, 

HOVE  ZEROS  TO  DUMMY-COUNTER. 

IF  RECORD-TYPE  OP  MASTER-RECORD  NOT  EQUAL 
'A'  AND  ’3'  AND  ’T’ 

DISPUY  ’  UNKNOWN  RECORD  TYPE  FOUND  -  '  SEARCH-KEY  OF 
MASTER-RECORD. 

PRINT-SOLDIER. 

ADD  1  TO  NUMBER-RECORDS-PRINTED. 

MOVE  SSN  OP  A-RECORD  TO  SSN-CODE. 

MOVE  SPACES  TO  REST. 

WRITE  SSN-DATA  . 


I 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
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17 

18 

19 
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22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


IDENTIFICATION  DIVISION. 

PROGRAM-ID.  DMDC. 

AUTHOR.  JOHN  HAMILL. 

INSTALLATION.  ABERDEEN  PROVING  GROUND,  HD  ,  21010. 
DATE-WRITTEN.  MAY  1980. 

DATE-COMPILED. 

SECURITY.  NO  SECURITY  CLEARANCE. 

REMARKS.  THE  PURPOSE  OP  THIS  PROGRAM  IS 

INCORPORATE  DMDC  DATA  ON  TO  A-RECORDS. 

EITVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE -COMPUTER.  UNIVAC-1108. 

OBJECT-COMPUTER.  UNIVAC-1108. 

INPUT-OUTPUT  SECTION. 

PILE-CONTROL. 

SELECT  ACES-MASTER-PILE  ASSIGN  TO  MASS-STORAGE  MASTER 
ORGANIZATION  IS  INDEXED, 

ACCESS  MODE  IS  SEQUENTIAL 
PROCESSING  MODE  IS  SEQUENTIAL, 

PILE-LIMIT  IS  20000 
ACTUAL  KEY  IS  SEARCH-KEY. 

SELECT  PRINTER1  ASSIGN  TO  PRINTER. 

SELECT  DMDC  ASSIGN  TO  CARD-READER  DMDATA. 

DATA  DIVISION. 

PILE  SECTION. 

* 

PD  ACES-MASTER-PILE 

LABEL  RECORDS  ARE  STANDARD, 

RECORD  CONTAINS  300  CHARACTERS, 

BLOCK  CONTAINS  30  RECORDS. 

* 

01  MASTER-RECORD. 

03  SEARCH-KEY. 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X. 

03  DATA-AREA  PIC  X(290). 

* 

*  THE  RECORD  LENGTH  ON  THE  ORIGINAL  DMDC  TAPE  WAS  133 

*  WHICH  WAS  TOO  LARGE  FOR  THE  ATX  TAPE  CONVERSION 

*  UTILITY  TO  HANDLE  PROPERLY.  SINCE  133  “  7  *  19, 

*  I  USED  7  19  CHARACTER  RECORDS  FOR  EACH  DMDC  RECORD 

*  ON  OUTPUT.  THIS  MUST  BE  PLACED  TOGETHER  AGAIN  IN 

*  THIS  PROGRAM. 

* 

■D  DMDC 

LABEL  RECORDS  ARE  STANDARD, 

RECORD  CONTAINS  19  CHARACTERS. 

01  DMDC-RECORD-DUMMY. 

02  DMDC-DUMMY  PIC  X(19). 

02  DUMMY-SUB  REDEFINES  DMDC-DUMMY. 

03  SSN  PIC  X(9). 

03  DMDC-SUB-10  PIC  X(10). 
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104 

105 

106 

107 

108 

109 

110 
111 


*  THE  A  RECORD  IS  THE  MASTER  RECORD  FOR  THE  ACES  FILE 

*  A  SOLDIER  MUST  HAVE  AN  A  RECORD  TO  HAVE  A  B,T,  OR  V 

*  TYPE  OF  RECORD  INDEXED  BY  NNNNNNNNNA  WHERE  N  IS  A 

*  NUMERIC  VALUE 

« 

01  A-RECORD. 

02  A-RECORD-DUMMY. 

03  SSN-TYPE  . 


112 

05 

SSN  PIC  9(9). 

113 

05 

RECORD-TYPE  PIC  X  VALUE 

'A'. 

114 

03  MASTER -FLAGS. 

115 

05 

BSEP-LIT-STATUS  PIC  9. 

116 

88  NO-B-HECORD  VALUE  0. 

117 

88  BSEP-LIT-PARTIC 

VALUE  1 

• 

118 

88  BSEP-LIT-NON-PARTIC 

VALUE  2. 

119 

05 

BSEP-ESL-STATUS  PIC  9. 

120 

88  NO-B-RBCORD 

VALUE  0. 

121 

88  BSEP-ESL-PARTIC 

VALUE  1. 

122 

88  BSEP-ESL-NON-PARTIC 

VALUE  2. 

123 

05 

VO-TECH-STATUS  PIC  9. 

124 

88  NO-T-RBCORD 

VALUE  0. 

125 

88  VO-TECH-PARTIC 

VALUE  1. 

126 

88  VO-TECH-NON-PARTIC 

VALUE  2. 

127 

05 

VEAP-STATUS  PIC  9. 

128 

83  NO-V-RBCORD 

VALUE 

0. 

129 

88  VEAP-PARTIC 

VALUE 

1. 

150 

88  VEAP-WITHDRAW-RBTURN  VALUE 

2. 

131 

88  VEAP-WITHDRAW-NO-RETURN  VALUE 

3. 

132 

88  VBAP-NON-PARTIC 

VALUE 

4. 

133 

03  A 

-RECORD-STATUS. 

134 

05 

MILPERCEN-FLAG  PIC  9- 

135 

88  MILPERCEN-PRESENT 

VALUE 

1. 

136 

05 

DMDC-FLAG  PIC  9. 

137 

88  DMDC -PRESENT 

VALUE 

1. 

138 

05 

TSC-FLAG  PIC  9. 

139 

88  TSC-PRESENT 

VALUE 

1. 

140 

05 

EREC-FLAG  PIC  9. 

141 

88  EREC -PRESENT 

VALUE 

1 . 

142 

05 

CREATE-DATE. 

143 

07  CRBATE-YY  PIC  99- 

144 

07  CREATE-MM  PIC  99. 

145 

07  CREATE-DD  PIC  99. 

146 

05 

LAST-MOD-DATE. 

147 

07  LAST-MOD-YY  PIC  99. 

148 

07  LAST-MO D-MM  PIC  99. 

149 

07  LAST-MOD-DD  PIC  99. 

150 

05  CONTROL-INFORMATION. 

151 

05 

DOB. 

152 

07  DOB-YY  PIC  99. 

153 

07  DOB-MM  PIC  99. 

154 

07  DOB-DD  PIC  99. 
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155 

156 

157 

158 

159 

160 
161 
162 
165 

164 

165 

166 

167 

168 

169 

170 

r.'i 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 
191 
192; 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 


05  SEX  PIC  X. 

88  MALE  VALUE 
88  FEMALE  VALUE 
03  MILPERCEN-DATA. 

07  SEX  PIC  X. 

07  RACE  PIC  X. 

07  MARST  PIC  X. 

07  DOB  PIC  X(6). 

07  TERMS  PIC  X. 

07  ETSDT  PIC  X(6). 

07  EGPCD  PIC  X. 

07  BPEDT  PIC  XXXX. 

07  PAYOR  PIC  X. 

07  DOR  PIC  X(6). 

07  APQSC  PIC  XX. 

07  CIVED  PIC  X. 

07  PMOS  PIC  X{5). 

07  DMOS  PIC  X(5). 

07  TYPLA  PIC  XX. 

07  DATLA  PIC  X(6). 

07  PSVCI  PIC  X. 

07  EERWA  PIC  XXX. 

07  CMP  PIC  XX. 

07  AITDT  PIC  XXX. 

07  GTSCR  PIC  XXX. 

07  PQDES  PIC  X(4). 

07  PSQDT  PIC  X(4). 

07  PQSCR  PIC  XXX. 


•M*. 

'P'. 


07  PQPER  PIC 
07  SMOS 
07  FILLER 
03  DMDC-DATA 
03  TSC-DATA 


XX. 

PIC  x(5). 

PIC  X(4). 

PIC  X(l24). 
PIC  X(56). 


* 

* 

* 

*  THE  Z-RECORD  IS  ALWAYS  MAINTAINED  ON  THE  ACES  MASTER  PILE 

*  IT  CARRIES  THE  RECORDS  COUNTS,  AND  OTHER  FILS  INFORMATION 

*  CONSULT  SYSTEM  DOCUMENTATION  FOR  RECORD  LAYOUT 

*  INDEX  FOR  Z  RECORD  IS  OOOOOOOOOZ 

* 

01  Z-RECORD. 

03  SSN-TYPE. 

05  SSN  PIC  9(9). 


05  RECORD-TYPE  PIC 
i  INTIALIZED-DATE. 

X 

VALUE  'Z'. 

05 

INTIALIZED-YY 

PIC 

99. 

05 

INTIALIZED-MM 

PIC 

99. 

05 

INTIALIZED-DD 

PIC 

99. 

205 

206 
207 
206 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 
253 


03  LAST-MODIFISD-DATE. 

05  LAST-MODIPIED-YY  PIC  99. 

05  LAST-HODIFIED-KM  PIC  99. 

05  LAST-MODIFIED-DD  PIC  99. 

03  RECORD-COUNTS. 

05  NUMBER -OF-A-RECORDS  PIC  9(7). 

05  NUMBER-OF-B-RECORDS  PIC  9(7). 

05  NUMBBR-OF-T-RECORDS  PIC  9(7). 

05  NUMBER-OF-V -RECORDS  PIC  9(7). 

05  TOTAL-RECORDS  PIC  9(11). 

*  THE  FOLLOWING  ARE  THE  PRINT  LINES  FOR  THE  STATUS  REPORT 

01  STATUS-REPORT. 

03  LINE-1 . 

05  FILLER  PIC  X(20)  VALUE  SPACES. 

05  FILLER  PIC  X(40)  VALUE  ‘STATUS  REPORT  ON  ACES  MASTER 
'  FILE*. 

03  LINE-2. 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

05  FILLER  PIC  X(8)  VALUE  'TIME  *. 

05  SHOW-TIME  PIC  X(6). 

03  LINE-3. 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

05  FILLER  PIC  X(8)  VALUE  ’DATE 

05  SHOW-DATE  PIC  99/99/99. 

03  LINE-4. 

05  FILLER  PIC  X(3)  VALUE  SPACES. 

05  FILLER  PIC  X(1l)  VALUE  ‘TYPE  RECORD’. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(13)  VALUE  ‘FREQUENCIES’. 

05  FILLER  PIC  X(23)  VALUE  SPACES. 

05  FILLER  PIC  X(23)  VALUE  ‘DATE  INTIALIZED 
05  SHOW-INTIALIZED-DATE  PIC  99/9:/99. 

03  LINE-5. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  ‘A‘. 

05  SHOW-A-COUNT  PIC  ZZZ,ZZ9. 

03  LINE-6. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  ‘B‘. 

05  SHOW-B-COUNT  PIC  ZZZ,ZZ9. 

03  LINE-7. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  ‘T‘. 

05  SHOW-T-COUNT  PIC  ZZZ,ZZ9. 

05  FILLER  PIC  X(25)  VALl'E  SPACES. 

05  FILLER  PIC  X(20)  VALUE  'DATE  LAST  MODIFIED  ‘ . 

05  SHOW-MODIFY-DATE  PIC  99/99/99. 
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254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 
1266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 
301 


03  LINE-8. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  x(‘,5)  VALUE  ’V. 

05  SHOW-V-COUNT  PIC  ZZ2,Z29. 

03  LINE-9. 

05  FILLER  PIC  X(28)  VALUE  SPACES. 

05  FILLER  PIC  X(6)  VALUE  ' - '. 

03  LINE-10. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  ’TOTAL*. 

05  SKOW-SUK-ABTV-RECORDS  PIC  Z2Z,Z22,999. 

01  RECORD-COUHTERS. 

03  DMDC-RECCRDS-READ  PIC  9(9)  VALUE  0. 

03  UPDATED-A -RECORDS  PIC  9(9)  VALUE  0. 

01  DMDC-RECORI-PLAG  PIC  9. 

88  DMDC -RECORD-MATCHES  VALUE  0. 

88  RECORD-REJECTED  VALUE  1 , 

01  ACES-FIIil-FLAG  PIC  9  VALUE  0. 

88  EOF-ACES-MASTER-FILE  VALUE  1. 

01  DMDC-FILE-FLAG  PIC  9  VALUE  0. 

88  E07-DMDC-FILE  VALUE  1. 

PROCEDURE  DIVISION. 

MAIN-LINE. 

OPEN  OUTPUT  PR INTER 1. 

PERFORM  SET-UP-ACES-MASTBR-FILE. 

PERFORM  SET-UP-DMDC-DATA-TAPE. 

PERFORM  INPUT -NEXT-A-RECORD. 

DISPLAY  '  DMDC  EXECUTION  PRIMING  RECORDS 
DISPUY  '  DMDC-RECORD  -  *  DMDC -RECORD-DUMMY. 

DISPLAY  '  MASTER-RECORD  -  '  MASTER-RECORD. 

PERFORM  PROCESS-SOLDIER  THROUGH  INPUT-NEXT -A-RECORD 
UNTIL  EOF-ACES-MASTER-FILE  OR  EOF-DMDC-FILE. 

*  CHANGE  THE  10  TIMES  TO  EOF-ACES-MASTER-FILE  MARKER  AFTER  TESTING  JNH 

*  AND  EOF -DMI’C -FILE  NOTE  THAT  BOTH  WILL  SHUT  OFF  PROCESS 

PERFORM  SHUT-DOWN-ACES-MASTER-FILE. 

PERFORM  SUMMARY-STATS. 

STOP  RUN. 

SET-UP-DMDC -DATA -TAPE . 

OPEN  INPUT  DMDC. 

CLOSE  DMDC. 

OPEN  INPUT  DMDC. 

MOVE  0  TO  DMDC-FILE-FLAG. 

PERFORM  INPUT -DMDC -RECORD. 

*  »••**•*»«•••««•««««»«««••«»»«*•»••••*••««««««««««» 

SET-UP-ACES-MASTER-FILE. 

*  THIS  ROUTINE  WILL  BE  THE  FIRST  STEP  IN  ANY  RUN 

*  INVOLVING  THE  ACES-MASTER-FILE. 
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302  j 

303: 
304: 
305: 
306: 
307: 
308: 
309: 
310: 
311: 
312: 
313: 
314: 
315: 
316: 
317: 
318; 
319- 
320; 
321; 
322: 
323; 
324; 
325: 
326; 
327: 
328: 
329: 
330: 
331: 
332: 
333: 
334; 
335: 
336; 
337: 
338; 
339: 
340; 
341; 
342; 
343: 
344; 
345: 
346: 
347: 
348; 
349: 
350: 
351  : 
352: 


OPEN  I-O  ACSS-MASTES-FILE. 

ROVE  ZEROES  TO  SSN  OF  SEARCH-KET. 

MOVE  '2'  TO  RBCORD.TYPE  OF  SEARCH-KEY. 

READ  ACBS-HASTER-FILE  INTO  Z-RSCORD, 

AT  END  MOVE  1  TO  ACES-FILE-FLAO. 

PERFORM  PRINT-STATUS-REPORT. 

PRINT-STATUS-REPORT. 

*  MOVE  THE  DATA  OFF  2-RECORD  TO  REPORT  PRINT  LINES 

MOVE  INTIALIZBD-DATE  OF  2-RECORD  TO  SHOW-INTIALIZED-DATE 

OP  STATUS-REPORT. 

MOVE  LAST-MODIFIED-DATE  TO  SHOW-MODIFY-DATE. 

MOVE  NUMBER-OF-A-RECORDS  TO  SHOW-A-COUNT. 

MOVE  NUMBER-OF-B-RECORDS  TO  SHOV-B-COUNT. 

MOVE  NUMBER-OF-T -RECORDS  TO  SHOW-T-COUHT. 

MOVE  NUMBER-OF-V-RECORDS  TO  SHOW-V -COUNT. 

MOVE  TOTAL-RECORDS  TO  SHOW-SUM-ABTV -RECORDS. 

*  GET  THE  CORRECT  TIME  AMD  DATE 

*  PLACE  TIME,  DATE  INTO  REPORT  PAGE 
PERFORM  INTIALI2E-DATE-TIME. 

MOVE  MACHINE-TIME  TO  SHOW-TIME  OF  STATUS-REPORT  . 

MOVE  SEQUENCED-DATE  TO  SHOW-DATE  OP  STATUS-REPORT. 

*  WRITE  THE  STATUS  REPORT 

*  WRITE  PRINT-LINE  PROM  LINE-1  OF  STATUS-REPORT  AFTER 

*  PAGE-TOP  LINES. 

WRITE  PRINT -LINE  PROM  LINE-2  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-3  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-4  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-5  OP  STATUS-REPCRT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-6  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  PROM  LINE-7  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-8  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-9  OF  STATUS-REPORT  AFTER  2  LINES. 

WRITE  PRINT-LINE  FROM  LINE-10  OP  STATUS-REPORT  AFTER  2  LINES. 

INTIALIZE-DATE-TIME. 

ACCEPT  MACHINE-DATE-TIME  FROM  DATE-TIME. 

MOVE  CORRESPONDING  HACHINE-DATE  TO  SEQUENCED-DATE. 

* 


SHUT-DOWN-ACES-MASTER-PILE. 

*  A  STATUS  REPORT  WILL  BE  GENERATED 

*  ALL  COUNTERS  WILL  BE  UPDATED 

*  A  MODIFIED  Z-RECORD  WILL  BE  REWRITTEN 

*  ACES-MASTEFILE  WILL  BE  CLOSED 
PERFORM  PRINT-STATUS-REPORT. 

PERFORM  WRITE-Z-RECORD. 

CLOSE  ACES-MASTSR-FILE,  DMDC, 
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353  J 
354s 
355s 
356s 
357s 
358s 
3598 

360  s 

361  s 

362  s 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 


VRITB*Z*RBC0I10« 

hoys  sbqusnced-dats  to  last-nooifibo-date  of  z-rbcord. 

HOVE  Z-RBCORO  TO  HASTBR>REC0R1>. 

REVRITE  MASTER-RECORD 

INVALID  KEY  DISPUY  *Z  RECORD  NOT  WRITTEN' 

UPON  PRrNTER. 


THE  FOLLOWING  PORTION  OF  THE  PROGRAM  IS  STRICTLY  FOR  DMDC 
FI^PROCESSINQ _ 

THIS  IS  THE  TOP  OF  THE  DKDC  PROCESSING  LOOP 
IT  WILL  BE  REPEATED  A  NUKES  OF  TINES  EQUAL  TO  THE 
NUMBER  OF  DMDC  DATA  RECORDS 


PROCESS-SOLDIER. 

ADD  1  TO  DUMMY-COUNTER. 

IF  DUMMY-COUNTER  EQUALS  200 

MOVE  ZEROS  TO  DUMMY-COUNTER 
DISPUY  ’  SSN  OF  MASTER-RECORD,  ’  AT  DMDC  - 
DMDC-RECOSDS-RBAD  UPON  PRINTER. 

*  NETP  WE  WILL  SEE  IF  THERE  IS  A  DMDC-RECORD  ON  THIS  SOLDIER 

PERFORM  INPUT-DMDC-RSCORD  UNTIL 

SSN  OF  DMDC-RECORD  IS  NOT  LESS  THAN 
SSN  OF  MASTER-RECORD. 

« 

*  IF  THERE  IS  A  DMDC  RECORD  IT  WILL  NOW  BE  IN 

*  HWORY  NEXT  WE  CHECK  TO  SEE  IF  THEY  MATCH 

PERFORM  VERIFY-DMDC-MATCH. 

« 

IF  DHDC-RECORD-MATCHES 

PERFORM  UPDATE-A-RECORD, 

PERFORM  REWRITE-A-RECORD, 

ELSE 

ADD  1  TO  NO-DMDC-DATA -COUNTER. 

INPUT -NEXT - A-RECORD . 

*  SINCE  THERE  IS  MORE  THAN  ONE  TYPE  OF  RECORD  W2  SELECT  ONLY 

*  THE  MASTER  RECORD  FOR  EACH  SOLDIER 

PERFORM  INPUT-NEXT-LXICAL-RECORD. 

PERFORM  INPUT-NEXT-LOGICAL-RECORD  UNTIL 
EOF-ACES-MASTER-FILE 
OR 

RECORD-TYPE  OF  MASTER-RECORD  EQUALS  'A'. 
INPUT-NEXT-LOGICAL-RECORD. 

READ  ACES -MASTER-FILE  INrO  A-RECORD 

AT  END  MOVE  1  TO  ACES-FILE-FLAG. 

IF  SSN  OF  A-RECORD  EQUALS  999999999 

MOVE  1  TO  ACES-FILE-FUG. 
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VERIFY-DHDC “MATCH • 

•  ROTS  THAT  AMY  VALIOATIOR  OF  TtV  RECORDS  SHOULD  BB  DOME  HERE 

MOVE  0  TO  DKDC-RBCORD-FLAO. 

IF  SSR  OF  A“RECORD  ROT  EQUAL  TO  SSN  OF  DNDC'RBCORD, 

MOVE  1  'iO  DMDC-RSCORD-FLAO. 

•  DMDC  SENT  BACK  ALL  SSR  C  SENT  BY  FILLIRO  ROM-NATCHES 

•  VITH  ZEROS.  CORSBQUSRTLY,  A  NATCH  HILL  BB  DECIDED 

•  BY  THE  PRESENCE  OF  A  RORZSRO  DATE  OF  BIRTH 

» 

IF  DNDO -BIRTH  EQUAL  ZERO  . 

MOVE  1  TO  DMDC-RECORD-FLAG. 

UFDATE-A-RECORD. 

•  HER?  WE  WILL  MOVE  ALL  THE  DATA  WE  WISH  OFF  THE  DMDC  RECORD 

•  ARD  INTO  THE  A-RECORD 

MOVE  DMDC-DATA  OP  DMDC-RECORD 

TO  DMDC-DATA  OF  A-RECORD. 

•  PLACE  BIRTH  DATS  ARD  SEX  IR  CONTROL  IP  MOT  THERE  ALREADY 

IP  DOB-YY  OP  CONTROL-IMFORMATIOM  LESS  THAN  20 
OR  GREATER  70 
MOVE  DMDC-BIRTH  TO  DOB  OP 
CORTROL-I NFORMAT ION . 

IF  SEX  OP  CORTROL-INPORMATION  EQUAL  SPACES 
IP  SEX  OP  IMDC-RECORD  EQUALS  *1  ‘ 

MOVE  ’M'  TO  SEX  OF  CONTROL-INFORMATION 
ELSE  IF  SEX  OF  DMDC-RECORD  EQUALS  '2' 

MOVE  'P'  TO  i;?.:  OF  CONTROL-INFORMATION. 

ADD  1  TO  UPDATED-A -RECORDS. 

MOVE  1  TO  DMDC -PUG  OP  A-RECORD. 

REWRITE-A-RECORD, 

MOVE  'A'  TO  RECORD-TYPE  OF  SEARCH-KEY. 

MOVE  SEQUENCED-DATE  TO  LAST-MOD-DATE  OF  A-RECORD. 

MOVE  A-RECORD  TO  MASTER-RECORD. 

REWRITE  MASTER-RECORD 

INVALID  KEY  DISPLAY 

’  INVALID  ATTEMPT  REWRI  *A*  REC 
UPON  PRINTER. 

INPUT-DMDC-RECORD. 


♦  THE  DMDC  FILE  MUST  BE  READ  7  TIMES  TO  BUILD 

*  ONE  DMDC  RECORD. 
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446  j 
447: 
448: 
449: 

450: 
451: 
452: 
453: 
454; 
455: 
456: 
457: 
455; ; 
459: 
460: 
461 : 
462: 
463: 
464: 
465: 
466: 
467; 
468: 
469: 
E0¥:469 


READ  DKDC  AT  SRD  MOVE  1  TO  DtIDC-PILE-FLAC. 

MOVE  SSN  OP  CRDC-RECORO-DUMNY  TO 
SSH  OP  OHOC-RECCRD. 

MOVE  DBDC-SUB-IO  TO  DMDC-PART-O. 

IP  SSR  OP  DKOC-RECORO  ROT  GREATER  THAR  3SR-H0L0 

DISPUY  '  SEQUERCIRQ  PROBLEM  -  HOLD  SRR  -  '  SSR>HOLD 
DISPUY  '  REV  I«OC  RECORD  •  \  DRDC-DUMMY. 

MOVE  SSR  OP  DMDC -RECORD  TO  SSR-HOLD. 

PERFORM  GET-DMDC-PARTS  VARYING  INDX  FROM  1  BY  1 
UNTIL  IRDX  GREATER  6. 

ADD  1  TO  DMDC-RECORDS-READ. 

GET-DMDC-PARTS. 

READ  DMDC  AT  END  MOVE  1  TO  DMDC-FILE-FUG. 

MOVE  DMDC -DUMMY  TO  DMDC -PART  (INDX). 

bUMMARY-STATS, 

'ISPUY  ’'MDC -RECORDS -READ,  ’DMDC  RECS  READ* 

UPON  PRINTER. 

DISPLAY  NO-DMrC-DATA-CGUNTER,  'NO  DMDC  DATA* 

UPON  PRINTER. 

DISPLAY  UPDATED-A -RECORDS,  'UPDATED  A  REGS' 

UPON  PRINTER. 


It 

2t 

3: 

4: 

5t 

6t 

7s 

8: 

9s 
10s 
11s 
12s 
13s 
Us 
15s 
16s 
17s 
18s 
19s 
20  s 
21s 
22s 
238 
248 
258 
26s 
27: 
288 
298 
308 
318 
32  s 
33s 
34s 
35s 
36s 
37  s 
38s 
39: 
40: 
41: 
42s 
43: 
44: 
45s 
46: 
47s 
48: 


lOEXTiriCATIOII  DIVZSIOI. 

PROORAN-IS.  ACB8S. 

AUTHOR.  JOHR  HAHZLL. 

IRSTALUTIOH.  ABBRDBSR  PROVIHO  QRO'JRU,  MS  ,  21010. 
DATB-VRZTTSH.  NAT  1980. 

OATN-COHPILBD. 

SECURITY.  NO  SECURITY  CI2ARA1ICB. 

RBtARXS.  THE  PURPOSE  OP  THIS  PROGRAM  IS 
OEMBRATB  AN  SPSS  READABLE  PILE 

INPUTS  ARE  SOLICITED  PROM  THE  TERMINAL 
VALID  INPUTS  ARB 

1  ALL  A-RBCORDS 

3  BSL  PARTICPANTS  (A*B)  RECORDS 

4  LIT  PARTICPANTS  RECORDS 

5  VOTECH  PARTICIPANTS  (A^T)  RECORDS 

2  ALL  RECORDS  (A^B^T) 

ORLY  THESE  INPUTS  ALLOWED  (1,3. 4.5. 2). 
SNYIRONMENT  DIVISION. 

COHPITJfiATION  SECTION. 

SOURCE-COMPUTER.  UNIVAC-1108. 

OBJECT-COMPUTER.  UHIVAC-1108. 

INPUT -OUTPUT  SECTION. 

PILE-CONTROL. 

SELECT  ACES-MASTER-PILS 

ASSIGN  TO  MASS-STORAGE  MASTER 
ORGANIZATION  IS  INDEXED, 

ACCESS  MODE  IS  SEQUENTIAL, 

PILE-LIMIT  IS  2300 
ACTUAL  KEY  IS  DUM-SEARCH-KEY. 

SELECT  PRINTER1  ASSIGN  TO  PRINTER. 

SELECT  SPSS-PILE  ASSIGN  TO  PRINTER  SPPILE. 

DATA  DIVISION. 

PILE  SECTION. 

► 

FD  ACES-MASTER-FILE 

LABEL  RECORDS  ARE  STANDARD. 

RECORD  CONTAINS  300  CHARACTERS, 

BLOCK  CONTAINS  30  RECORDS. 

► 

01  MASTER -RECORD. 

03  SEARCH-KEY. 

05  SSN  PIC  9(9). 

05  RECORD-TYPE  PIC  X. 

03  DATA-AREA  PIC  X(290). 

PD  PRINTER 1 

LABEL  RECORDS  ARE  OMITTED 

DATA  RECORD  IS  PRINT-LINE. 


49 

50 

51 


01  PRINT-LINE. 

03  CARRIAGE-CONTROL-CHARACTSR  PIC  X. 
03  PRINT-DATA  PIC  X(121). 
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r  ! 

» 


52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 


92 

93 

94 

95 

96 

97 

98 

99 
100 
101 


FD 


01 


77 

77 

01 


spss-rzut 

UBBL  RECORDS  ARB  ONITTKO 
DATA  RBCORD  IS  8P8S-DATA. 

SPSS-LIBB. 

03  REST  PIC  X(132). 

VORKIRO-STORAOB  SBCTIOB. 

77  DCN-SBARCR-KSY  PIC  X(!0). 

DUNNT-COUIITSR  PIC  9(6)  VALUE  0. 

OLD^SR  PIC  9(9)  VALUE  0. 

RBCORD-TABLB  . 

03  RBC0RD-TABLB1  PIC  X(300). 

03  RBC0RD-TABLB2  PIC  X(300). 

03  RBC0RD*TABLB3  PIC  X(300). 

03  REC0RD-TABLE4  PIC  X(300). 

*  HACHINE  DATE-TINE  IS  ACCEPTED  PRON  THE  SYSTSN  AND 

*  IS  PRINTED  OUT  VHBN  FILES  ARE  OPENED  AND  CLOSED 

01  MACHINE-DATE-TINE. 

03  KACHINE-DATE. 


72  s 

05  NM-DATE  PIC  99. 

1  ] 

73s 

05  DD-DATE  PIC  99. 

i  1 

74  s 

05  YY-DATE  PIC  99. 

j  1 
i  4 

75  s 

03  MACHINE-TIME. 

■  i 

76  s 

05  HOUR-DATE  PIC  99. 

'  i 

77s 

05  MIN-DAl'E  PIC  99. 

78s 

05  SEC-DATE  PIC  99. 

i  i 

79s 

« 

i  1 

80s 

•  SEQUENCED  DATE  IS  THE  DATE  IN  THE  FORM  YYMMDD  TO  ALLOVS 

81  s 

*  FOR  SORTING  ON  THE  6  FIELD  CODE 

■ 

82s 

• 

-  j 

83  s 

01  SEQUENCED-DATE. 

84s 

03  YY-DATE  PIC  99. 

85  s 

03  MM-DATE  PIC  99. 

;  i 

86  s 

03  DD-DATE  PIC  99. 

:  i 

87s 

* 

88s 

*  THIS  DUMMY  HOLD  ERROR  IS  BECAUSE  NO  WAY  WAS  FOUND 

89s 

*  TO  WRITE  A  300  CHARACTER  RECORD  AND  READ  IT  USING 

90s 

*  THE  SPSS  PACKAGE 

91s 

• 

01  HOLD-OUT. 

03  SUBSBT-1 
03  SUBSBT-r 
03  3UBSET-3 


PIC  X(120). 
PIC  X(120). 
PIC  X(120). 


SEARCH  KEY  IS  THE  INDEX  INTO  THE  INDEXEXED  SEQUNTIAL 
DATA  BASE  IT  CONSISTS  OF  A  SOCIAL  SECURITY  NUMBER 
AMD  SOME  RECORD  TYPE  (A,B,T,  OR  V) 


Ll 


102i 
103! 
104t 
105t 
106: 
107i 
106: 
109: 
110: 
111: 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119- 
120: 
121: 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
131: 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
140: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 
151  : 
152: 


•  THI  A  RKORS  IS  THE  NASnit  RBCORO  FOR  THB  ACBS  PILB 

•  A  SOLDXBR  MUST  HAVE  AE  A  RECORD  TO  HAVE  A  B,T,  OR  V 

•  TYPE  or  RECORD  IHDEXED  BY  MmOtERRHEA  VHERE  E  IS  A 

•  EUMERIC  VALUE 

01  A-RECORD. 

02  A-RBCORD-DUEMY. 

03  SSE-TYPB  . 

05  SSE  PIC  9(9). 

05  RECORD-TYFB  PIC  X  VALUE  'A'. 

03  MASTER-FUGS. 

05  BSEP-LIT-STATUS  PIC  9. 

88  EO-B-RSCORD  VALUE  0. 

88  BSEP-LIT-PARTIC  VALUE  1. 

88  BSEP-LIT-ROE-PARTIC  VALUE  2. 

05  BSEP-ESL-STATUS  PIC  9. 

88  EO-B-RSCORD  VALUE  0. 

88  BSEP-ESL-PARTIC  VALUE  1. 

88  BSEP-ESL-RON-PARTIC  VALUE  2. 

05  VO-TECH-STATUS  PIC  9. 

88  RO-T-RECORD  VALUE  0. 

88  VO-TECH-PARTIC  VALUE  1. 

88  VO-TECK-EOM-PARTIC  VALUE  2. 

05  VEAP-STATUS  PIC  9. 

88  NO-V-RECORD  VALUE  0. 

88  VBAP-PARTIC  VALUE  1. 

88  VEAP-VITHDRAW-RETURN  VALUE  2. 

88  VEAP-WITKDRAW-HO-RETURN  VALUE  3. 

88  VEAP-NOM-PARTIC  VALUE  4. 

03  A-RBCORD-STATUS. 

05  NILPSRCER-FLAG  PIC  9. 

88  NILPERCEE-PRESENT  VALUE  1. 

05  DMDC-PUG  PIC  9. 

88  DMDC-PRESENT  VALUE  1. 

05  TSC-FUG  PIC  9. 

88  TSC-PHESENT  VALUE  1. 

05  EREC-FLAG  PIC  9. 

88  EREC-PRESaiT  VALUE  1. 

05  CRSATE-DATE. 

07  CRBATE-YY  FIC  99. 

07  CREATE-MM  PIC  99. 

07  CREATE-DD  PIC  99. 

05  UST-MOD-DATE. 

07  UST-MOD-YY  PIC  99. 

07  UST-KOD-MM  PIC  99. 

07  UST-MOD-DD  PIC  99. 

03  CONTROL-INFORMATION. 

05  DOB. 

07  DOB-YY  PIC  99. 

07  DOB-MM  PIC  99. 

07  DOB-DD  PIC  99. 
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153s 
154s 
155s 
156s 
157s 
158s 
159s 
160s 
161s 
162s 
163s 
164s 
163s 
166s 
167$ 
168: 
169s 
17s)s 
171s 
172s 
173$ 
174$ 
1758 
176s 
177s 
178s 
179: 
130s 
181 : 
182: 
183s 
184: 
185s 
186: 
187: 
188: 
189: 
190: 
191 : 
192: 
193: 
194: 


05  SBX  PIC  X. 

88  MALE  VALUE 
88  FEMALE  VALUE  *F'. 

03  NILPERCEU-DATA. 

07  SEX  PIC  X. 

07  RACE  PIC  X. 

07  MARST  PIC  X. 

07  DOB  PIC  X(6). 

07  TERMS  PIC  X. 

07  STSDT  PIC  X(6). 

07  EOPCD  PIC  X. 

07  BPEOT  PIC  XXXX. 

07  PATCH  PIC  X. 

07  DOR  PIC  X(6). 

07  AFQSC  PIC  XX. 

07  CIVED  PIC  X. 

07  PMOS  PIC  X(5). 

07  DHOS  PIC  X(5). 

07  TfPLA  PIC  XX. 

07  DATU  PIC  X(6). 

07  PSVCI  PIC  X. 

07  EERWA  PIC  XXX. 

07  CMF  PIC  XX. 

07  AITDT  PIC  XXX. 

07  GTSCR  PIC  XXX. 

07  PQDBS  PIC  X(4). 

07  PSQDT  PIC  X(4). 

07  PQSCR  PIC  XXX. 

07  PQPER  PIC  XX. 

07  SMOS  PIC  X(5). 

07  FILLER  PIC  X(4). 

03  DHDC-DATA  PIC  X(124). 

03  TSC-DATA  PIC  X(56). 


'  THE  Z-RECORD  IS  ALWAYS  MAINTAINED  ON  THE  ACES  MASTER  FILE 
'  IT  CARRIES  THE  RECORDS  COUNTS,  AND  OTHER  PILE  INFORMATION 
^  CONSULT  SYSTEM  DOCUKENTATION  FOR  RECORD  LAYOUT 

^  INDEX  FOR  Z  RECORD  IS  OOOOOOOOOZ 

► 

01  Z-RECORD. 


195 

03  SSN-TYPE. 

196 

05 

SSN  PIC  9(9). 

197 

05 

RECORD-TYPE  PIC 

X 

VALUE 

198 

03  INTIALIZBD-DATE. 

199 

05 

INTIALIZED-YY 

PIC 

99. 

200 

05 

INTIALIZED-MK 

PIC 

99. 

201 

05 

INTIALIZED-DD 

PIC 

99. 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 


03  LAST-MODIFIED-DATE. 

05  LAST-MODIPIED-YY  PIC  99. 

05  LAST-MODIPIED-MM  PIC  99. 

05  LAST-MODIPIED-DD  PIC  99. 

03  RECORD-COUNTS. 

05  NUMBER-OP -A-RECORDS  PIC  9(7). 

05  NUMBER-OP-B-RECORDS  PIC  9(7). 

05  NUMBER-OF-T-RECORDS  PIC  9(7). 

05  NUMBER-OP-V-RdCORDS  PIC  9(7). 

05  TOTAL-RECORDl.  pic  9(11). 

*  THE  FOLLOWING  ARE  THE  PRINT  LINES  FOR  THE  STATUS  REPORT 

« 

01  STATUS -REPORT. 

03  LINE-1 . 

05  FILLER  PIC  X(20)  VALUE  SPACES. 

05  FILLER  PIC  X(40)  VALUE  'STATUS  REPORT  ON  ACES  MASTER 
'  PILE'. 

03  LINE-2. 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

05  FILLER  PIC  X(8)  VALUE  'TIME 

05  SHOW-TIME  PIC  X(G). 

03  LINE-3. 

05  FILLER  PIC  X(30)  VALUE  SPACES. 

05  FILLER  PIC  X(8)  VALUE  'DATE 

05  SHOW-DATE  PIC  99/99/99. 

03  LINE-4. 

05  FILLER  PIC  X(3)  VALUE  SPACES. 

05  FILLER  PIC  X(ll)  VALUE  'TYPE  RECORD'. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(13)  VALUE  'FREQUENCIES'. 

05  FILLER  PIC  X(23)  VALUE  SPACES. 

05  FILLER  PIC  X(23)  VALUE  'DATE  INTIALIZED 
05  SHOW-INTIALIZED-DATE  PIC  99/99/99. 

03  LINE-5. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'A'. 

05  SHOW-' -COUNT  PIC  ZZZ,ZZ9. 

03  LINE-6. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(^5)  VALUE  '3'. 

05  SHOW-B-COUNT  PIC  ZZZ,ZZ9. 

03  LINE-7. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'T'. 

05  SHOW-T-COUNT  FIC  ZZZ,ZZ9. 

05  FILLER  PIC  X(25)  VALUE  SPACES. 

05  FILLER  PIC  X(20)  VALUE  'DATE  LAST  MODIFIED  '. 

05  SHOW-MODIFY-DATS  PIC  99/99/99. 
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251: 

252; 

253 

254, 

255: 

256: 

257; 

258 

259: 

260: 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 
200 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 
301 


03  LINE-8. 

05  FILLER  PIC  X(12)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'V. 

05  SHOW-V-COUNT  PIC  ZZZ,ZZ9. 

03  LINE-9. 

05  FILLER  PIC  X(28)  VALUE  SPACES. 

05  FILLER  PIC  X(6)  VALUE  ’ - 

03  LINE-1 0. 

05  FILLER  PIC  X(9)  VALUE  SPACES. 

05  FILLER  PIC  X(15)  VALUE  'TOTAL'. 

05  SHOW-SUM-ABTV-RECORDS  PIC  ZZZ,ZZZ,999. 

01  RECORL-COUNTERS. 

03  NUMBER-RECORDS-READ  PIC  9(9)  . 

03  LIT-COUNT  PIC  9(9)  VALUE  0. 

03  ESL-COUNT  PIC  9(9)  VALUE  0. 

03  VOTECH-COUNT  PIC  9(9)  VALUE  0. 

03  ALL-COUNT  PIC  9(9)  VALUE  0. 

03  A-COUNT  PIC  9(9)  VALUE  0. 

01  WANT-CRITERIA-SETUP. 

03  WANT-CRITERIA  PIC  9. 

88  WANT-A  VALUE  1 . 

88  WANT-ALL  VALUE  2. 

88  WANT-ESL  VALUE  3. 

88  WANT-LIT  VALUE  4. 

88  WANT-VOTECH  VALUE  5. 

03  NUMBER-RECORDS -PRINTED  PIC  9(9). 

01  ACES-FILE-FLAG  PIC  9  VALUE  0. 

88  EOF-ACES-FILE  VALUE  1 . 

PROCEDURE  DIVISION. 

MAIN-LINE. 

OPEN  OUTPUT  PRINTSR1,  SPSS-FILE. 

PERFORM  SET-UP-ACES-MASTER-FILE. 

PERFORM  GET-WRITB-CRITERIA. 

DISPLAY  '  WANT  CRITERIA  -  ',  WANT-CRITERIA. 
PERFORM  PROCESS-FILE. 

DISPLAY  'ENL'  OP  FILE  PROCESSING’. 

PERFORM  SHUT-DOW:i-ACES-MASTER-PILE. 

CLOSE  SPSS-FILE,  PRINTERl. 


DISPLAY  '  RECORDS  READ  -  NUMBER-RECORDS-READ 
DISPLAY  '  END  OF  EXECUTION  ACESS. ’  . 

DISPLAY  '  LIT  COUNT  -  LIT-COUNT. 

DISPLAY  '  VOTECH-COUNT  -  VOTECH-COUNT. 

DISPLAY  '  A  COUNT  -  A-COUNT. 

DISPLAY  '  ESL  COUNT  -  ESL-COUNT. 

DISPLAY  '  ALL  COUNT  -  ',  ALL-COUNT. 

STOP  RUN. 

#««««*««*•««««»«««««««•*««**•«««»««*»«*»**««»**«««« 


NUMBER-RECORDS-READ. 
ACESS.’  . 

,  LIT-COUNT. 

,  VOTECH-COUNT. 

,  A-COUNT. 

,  ESL-COUNT. 

,  ALL-COUNT. 


SET-UP-ACES-MASTER-FILE . 

*  THIS  ROUTINE  WILL  BE  THE  FIRST  STEP  IN  ANY  RUN 

*  INVOLVING  THE  ACES -MASTER-FILE. 
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302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 
3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 


OPEN  INPUT  ACES-MASTER-PILE. 

READ  ACES-MASTER-FILE  INTO  Z-RECORD, 

AT  END  DISPLAY  ’  NO  Z  RECORD’  UFON  PRINTER, 

STOP  RUN. 

PERFORM  PRINT-STATUS-REPORT. 

PRINT-STATUS-REPORT. 

*  MOVE  THE  DATA  OFF  Z-RECORD  TO  REPORT  PRINT  LINES 

MOVE  INTIALIZED-DATE  OF  Z-RBCORD  TO  SHOV-INTIALIZED-DATE 

OF  STATUS-REPORT. 

MOVE  LAST-MODIFIED-DATE  TO  SHOW-MDDIFY-DATB. 

MOVE  NUMBER-OF-A-RECORDS  TO  SHOW-A-COUNT. 

MOVE  NUMBER-OF-B-RECORDS  TO  SHOW-B-COUNT. 

MOVE  NUMBER -OF-T -RECORDS  TO  SHOW-T-COUNT. 

MOVE  NUMBER-OF-V -RECORDS  TO  SHOW-V -COUNT. 

MOVE  TOTAL-RECORDS  TO  SHOW-SUM-ABTV-RECORDS. 

« 

*  GET  THE  CORRECT  TIME  AND  DATE 

*  PLACE  TIME,  DATE  INTO  REPORT  PAGE 
PERFORM  INTIALIZE-DATE-TIME. 

MOVE  MACHINE-TIME  TO  SHOW-TIME  OF  STATUS-REPORT  . 
MOVE  SEQUENCED-DATE  TO  SHOW-DATE  OP  STATUS-REPORT. 

*  WRITE  THE  STATUS  REPORT 


*  WRITE 

PRINT-LINE 

FROM 

LINE-1 

OF 

STATUS -REPORT 

AFTER 

« 

PAGE-TOP 

LINES. 

WRITE 

PRINT -LINE 

FROM 

LINE-2 

OF 

STATUS -REPORT 

AFTER 

2 

LINES. 

TOITB 

PRINT -LINE 

PROM 

LINE-3 

OP 

STATUS -REPORT 

AFTER 

2  LINES. 

WRITE 

PRINT-LINE 

PROM 

LINB-4 

OP 

STATUS-REPORT 

AFTER 

2 

LINES. 

WRITE 

PRINT -LINE 

FROM 

LINE-5 

OP 

STATUS-REPORT 

AFTER 

2 

LINES. 

WRITE 

PRINT-LINE 

FROM 

LINE-6 

OP 

STATUS -REPORT 

AFTER 

2 

LINES. 

WRITE 

PRINT-LINE 

FROM 

LINE-7 

OP 

STATUS-REPORT  AFTER 

2 

LINL'. 

WRITE 

PRINT-LINE 

PROM 

LINE-8 

OP 

STATUS-REPORT 

AFTER 

2 

LINES. 

WRITE 

PRINT-LINE 

FROM 

LINE-9 

OF 

STATUS -REPORT 

AFTER 

2 

LINES. 

WRITE 

* 

PRINT-LINE 

PROM 

LINE-10  OP  STATUS-REPORT  AFTER  2  LINES 

INTIALIZE- 

-DATE-TIME. 

* 


ACCEPT  MACHINE-DATE  FROM  DATE. 

ACCEPT  MACHINE-TIME  PROM  TIME. 

MOVE  CORRESPONDING  MACHINE-DATE  TO  SEQUENCED-DATE. 

* 

« 


SHUT-DOWN-ACES-MASTER-PILE. 

♦  ACES-MASTEFILE  WILL  BE  CLOSED 
CLOSE  ACES-MASTER-FILE. 

» 
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348; 
349: 
350: 
351: 
352: 
353: 
354: 
355; 
356: 
357; 
358; 
359: 
360: 
361; 
362: 
363: 
364: 
365: 
366; 
367; 
368: 
369: 
370: 
371 : 
372: 
373: 
374: 
375: 
376: 
377: 
378: 
379: 
380; 
381: 
382: 
383; 
384: 
385: 
386; 
387: 
388: 
389: 
390: 
391  ; 
392: 
393: 
394: 
395: 
396: 
397: 
398: 


THE  FOLLOWING  PORTION  OP  THE  PROGRAM  IS  STRICTLY  FOR  ACESS 
FI^  PROCESSING _  _  _ 

THIS  IS  THE  TOP  OF  THE  SSN  PROCESSING  LOOP 
IT  WILL  BE  REPEATED  A  NUMER  OF  TINES  EQUAL  TO  THE 
HUMBER  0y___DATA_REC0RD3 _  _ 

GET-HRITE-CRITERIA. 

MOVE  ZEROS  TO  RECORD-COUNTERS. 

DISPLAY  'ENTER  ETPRACT  TYPE  DESIRED  AS  FOLLOWS 
DISPLAY  '  t  -  FOR  ALL  A  RECORDS  ’ . 

DISPLAY  '  2  -  FOR  ALL  RECORDS  ' . 

DISPLAY  '  3  “  FOR  ESL  RECORDS 
DISPLAY  '  4  -  FOR  LIT  RECORDS 
DISPUY  •  5  -  FOR  VO-TECH  RECORDS  ' . 

ACCEPT  WANT-CRITERIA. 

IF  WANT-CRITERIA  LESS  THAN  1  OR  GREATER  THAN  5 

DISPLAY  •  ***^INVALID  CRITER:A**<»<»***TRY  AGAIN  -  ’ 
WANT-CRITEKIA 
GO  TO  GET-WRITE-CRITERIA. 

PROCESS-FILE. 

DISPLAY  'FILE  PROCESSING  INITIATED  '. 

PERFORM  INP’JT-ACES-RECORD  UNTIL 

RECORD-TYPE  OP  MAS'TER-RECORD  EQUAL  *A’ 

OR 

EOF-ACES-FILE. 

DISPLAY  •  RECORD  KEY  OP  PRIMING  RECORD  -  ' ,  SEARCH-KEY 

OP  MASTER-RECORD. 

PERPORM  PROCESS-SOLDIER 

UNTIL  EOP-ACES-riLE. 

PROCESS-SOLDIER. 

PERFORM  BLANK-OUT-TABLE. 

MOVE  SSN  OP  MASTER-RECORD  TO  0LD-5SN. 

ADD  1  TO  DUMMY-COUNTER. 

IP  DUMMY-COUNTER  GREATER  200 
MOVE  ZEROS  TO  DUMMY-COUNTER 

DISPUY  •  CURRENTLY  EXECUTING  SSN  OLD-SSN. 

IF  RECORD-TYPE  OF  MASTER-RECORD  EQUAL  ’A’ 

PERFORM  LOAD-INPUT-TABLE  UNTIL  SSN  OP 
MASTER-RECORD  NOT  EQUAL  OLD-SSN 
OR  EOF-ACES-PILE 
PERFORM  UNLOAD-INPUT-TABLE 
ELSE  DISPUY  '  A-RECORD  KISSING  -  ' 

SEARCH-KEY  OP  MASTER-RECORD 
PERFORM  INPUT-ACES-RECORD. 

BLANK-OUT -TABLE. 

MOVE  ZEROS  TO  REC0RD-TABLE1 . 

MOVE  ZEROS  TO  REC0RD-TABLB2. 

MOVT:  zeros  to  aEC0RD-TABLE3. 

MOVE  ZEROS  TO  REC0RD-TABLE4. 
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399: 

400: 

401 

402 

403 

404 

405 

406 
407 
406 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 
pns'tA'ifl 


LOAD-INPUT -TABLE. 

IP  RECORD-TYPE  OP  MASTER-RECORD  EQUAL  'A' 

MOVE  MASTER-RECORD  TO  A-RECORD 
MOVE  MASTER-RECORD  TO  REC0RD-TABLE1 

ELSE 

IP  RECORD-TYPE  OP  MASTER -RECORD  EQUAL  'B' 

MOVE  MASTER-RECORD  TO  RBC0RD-TABLE2 

ELSE 

IP  RECORD-TYPE  OP  MASTER-RECORD  EQUAL  'T' 

MOVE  MASTER-RECORD  TO  REC0RD-TABLE3 
BI6B 

DISPUY  •  UNKNOWN  RECORD  TYPE  *  SEARCH-KEY 
OP  MASTER-RECORD. 

PERPORM  INPUT-ACES-RECORD. 

UNLOAD-INPUT-TABLE. 

IP  WANT-A 

MOVE  REC0RD-TABLE1  TO  HOLD-OUT 
PERFORM  WRITE-SPSS-PILE 
ADD  1  TO  A-COUNT. 

IF  WANT-ALL 

MOVE  REC0RD-TABLE1  TO  HOLD-OUT 
PERPORM  WRITE-SPSS-PILE 
MOVE  RBC0RD-TABLE2  TO  HOLD-OUT 
PERFORM  WRITE-SPSS-PILE 
MOVE  REC0RD-TABLE3  TO  HOLD-OUT 
PERPORM  WRITE-SPSS-PILE 
ADD  1  TO  ALL-COUNT. 

IP  WANT-ESL 

AND  (BSEP-ESL-PARTIC  OR  BSEP-ESL-NOH-PARTIC ) 
MOVE  REC0RD-TABLE1  TO  HOLD-OUT 
PERPORM  WRITE-SPSS-PILE 
•  MOVE  REC0RD-TABLE2  TO  HOLD-OUT 
PERPORM  WRITE-SPSS-PILE 
ADD  1  TO  ESL-COUNT. 

IP  WANT-LIT 

AND  (BSEP-LIT-PARTIC  OR  BSEP-LIT-NON-PARTIC ) 

MOVE  REC0RD-TABLE1  TO  HOLD-OUT 

PERPORM  WRITE-SPSS-PILE 

MOVE  REC0RD-TABLE2  TO  HOLD-OUT 

PERPOPJI  WRITE-SPSS-PILE 

ADD  1  TO  LIT-COUNT. 

IP  WANT-VOTECH 

AND  (VO-TECH-PARTIC  OR  VO-TECH-NON-PARTIC) 

MOVE  REC0RD-TABLE1  TO  HOLD-OUT 

PERPORM  WRITE-SPSS-PILE 

MOVE  REC0RD-TABLE3  TO  HOLD-OUT 

PERPORM  WRITE-SPSS-PILE 

ADD  1  TO  VOTECH-COUNT. 

INPUT -ACES-RBCORD. 

READ  ACES-MASTER-PIIi: 

AT  END  MOVE  1  TO  ACES-PILE-PLAG 
MOVE  999999999  TO  SSN  OP  MASTER-RECORD 
MOVE  'X'  TO  RECORD-TYPE  OP  MASTER-RECORD. 

IP  SSN  OP  MASTER-RECORD  EQUALS  999999999  MOVE 
1  TO  ACES-PILE-PLAG. 

ADD  1  TO  NUMBER-RECORDS-READ. 

'rfRITE-SPSS-PILE. 

WRITE  SPSS-LINE  PROM  SUBSET-1. 

WRITE  SPSS-LINE  PROM  SUBSET~2. 

WRITE  SPSS-LINE  PROM  SUBSET-3. 
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U 

2: 

3:C 

itC 

5»C 

6: 

7t10 
8: 

9 
10 
11 
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28 
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53 

54 
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57 
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900 

5 

1000 


1010 


25 

1020 

5000 

6000 


30 


A- 76 

DIXBS3I0S  1BLK(700),  IKSC(lOO) 

IHTBQeR  BLKSIZ,  HUMBEC,  VRTRSC,  RECSIZ,  PADSIZ 

SET  UP  VARIABLE  BLOCK  SIZE  ARB  VORB  SIZE 

BLKSIZ  -  482 
F0mT(482A6) 

RECSIZ  •  16 
VRTRkV  -  15 
?0HMA'r(l5A6) 

.HBSIZ  -  3 
HUMREC  -  30 
IN  -  0 
lOUT  -  0 
ISKIP  -  0 
REAB(5,3)  :STRT 
P0RHAT(I6) 

IPCISTRT.LE.O)  00  to  900 
ISKIP  •  ISTRl  /  ROMREC 
lOUT  -  ISKIP  *'  RUHREC  ♦  1 
WRITE  (6,4)  IS7RT,  ISKIP,  lOUT 

FORMATC  SKIP  ',16,'  RECORBS,  ',I6,*  BLOCKS  WILL  BE  SKIPPBB  *, 
+  /,  '  RECORBIRG  STARTS  WITH  RBCORB  *,  16) 

BO  850  I  -  1 .ISKIP 
IN  -  IN  ♦  1 

CALL  NTRAH(1 1,2, BLKSIZ, IBLK.IST, 22) 

IP(lST.EQ.-2)  GO  TO  5000 
CONTINUE 
CONTINUE 
WRITE(6,5)  IN 

FORMATC  BEGIN  EXECUTION  OP  TAPE  D0MP',I6,'  BLOCKS  SKIPPED') 
CONTINUE 

CALL  NTRAN(1 1 .2, BLKSIZ, I3LK, 1ST, 22) 

I?(lST.SQ.-2)  GO  TO  5000 
IN  -  IN  ♦  1 

UNBLOCK  THE  RECORD  AND  WRITE 

DO  1020  I  •  I.NUKBEC 
DO  1010  J  -  1 .WRTREC 

ISPOT  ■  PADSIZ  ♦  (1-1 )  *  RECSIZ  ♦  J 
IREC(J)  -  IBLKdSPOT) 

CONTINUE 

WRITE(12,20)  (IFBC(KK),  KK-1, WRTREC) 

lOUT  ■  lOUT  ♦  1 

III  -  lOUT  /  400 

III  •  lOUT  -  III  •  400 

IP(III.EQ.0.0R.I0UT.LE.15)  WRITE(6,25)  IOUT,  IN, 

♦  (IREC(KK),  KK  -  1,3) 

FORMATC  RECORD  -  ',17.'  (',17,')  -  ',3A6) 

CONTINUE 
GO  TO  1000 
CONTINUE 

DO  6000  I  -  1, RECSIZ 
IREC  (I)  -  6H999999 
VRITE(12,20)  (IREC(KK),  KK-1,WRTREC) 

WRITE(6.30)  IN,  TOUT 

FORMATC  IN  -  17,  ' - OUT  -  ',17) 

STOP 

END 


j 

j 


APPENDIX  B 


FinWTIONAL  DESIGN  OF  COMPUTER  PROCESSING  PROCEDURES  DfPLl 

PROCEDURE;  INITIALIZE  (INIT.  CODE) 

PURPOSE;  Inltlallxc  Che  main  system  data  base; 

ACES- STUDY-MASTER-FILE 

INPUT;  None 

OUTPUT;  1,  ACES-STUDY-MASTER-FILE 

2.  One  record  on  this  file,  key:  000  00  0000  Z 
containing:  1)  Number  of  A  records 

2)  Number  of  B  records 

3)  Number  of  T  records 

4)  Number  of  V  records 

5)  Date  initialized  (YYMMDD) 

6)  Date  last  modified  (YYMMDD) 

3.  STATUS-REPORT 

PROCESSING:  Create  record  000  00  0000  Z 

Print  STATUS-REPORT 
Close  files. 


PRQCHDORI; 

PURPOSES; 


INPUT; 

OUTPUT; 

TABULATIONS 


B-2 


TRAOOC  (TRAOOC.  CODE) 

1.  Incorporat*  TRADOC  data  on  BSSP  I  Into  tha  data  baaa 
(craata/nodify  tha  B-^racord) 

2.  Craata  tha  A-racord  If  nacaaaary 

3.  Dataralna  whathar  participant  or  non-participant  in 
BSEP  I  -  Litaracy  Phase  and  BSEP  I  -  ESL  Phase  for  each 
soldier. 

1.  TRADOC-DATA-TAPE 

2.  ACES-STUDY-MASTER-FILE 

1.  ACES-STUDY-MASTER-FILE 

2.  STATUS-REPORT 

3.  REJECTED-RECORDS-LIST 

FOR  STATUS-REPORT; 

A.  Records  counts 

1.  Number  of  records  on  TRADOC-DATA-TAPE 

2.  Number  of  A-records  written  (rewritten) 

3.  Number  of  B-records  written  (rewritten) 

B.  Study  counts 

1.  Number  of  participants  in  BSEP  I  -  Literacy  Phase 

2.  Number  of  non-participants  in  BSEP  I  -  Literacy  Phase 

3.  Number  of  participants  in  BSEP  I  -  ESL  Phase 

4.  Number  of  non-participants  in  BSEP  I  -  ESL  Phase 

C.  Error  Count 

1.  Number  of  records  rejected  from  study. 


B-3 


TSADOC  (2) 


PROCESSING;  InitiallMtion 

For  ••ch  record  on  tho  TRADOC-DATA-TAPE 

1.  Valldacn  Chat  tha  SSM/ASN  is  nuaarlc 

2.  Rotrlava/lnitlallca  Che  A-record 

3.  Racrleva/inlclalita  tha  B-racord 

4.  Oatamloa  BSEP  1  acactia 

If  SELECT-ABLE-TEST-SCORE  -  "CR" 
reject  record,  not  In  BSEP  study. 

If  SELECT-ABLE-TEST-SCORE  not  •  ”ER" 
then  BSEP  -  LIT  participant  if  DAYS  enrolled 
ia  positive.  Elea  BSEP  -  LIT  non-participant 
If  SELECT-ABLE-TEST-SCORE  -  ”ER" 
then  BSEP  -  ESL  participant  if  ESL  -  "E" 

Else  non-participant 

5.  Move  the  appropriate  data  to  the  B-record  via  a 
MOVE  CORRESPONDING  connand 

6.  Set  appropriate  flags  and  dates 

7.  If  record  accepted,  rewrite/write  the  A-  and  B-records 
Update  record  000  00  0000  Z 

Print  STATUS-REPORT 
Close  files. 


B-4 

PROCmWtI>  VOTICH  (VOTICR.  COOt) 

PURPOSES ;  1.  Incorporat*  th«  VO«TBCH  data  obtainad  In  tha  flald  into 

tha  data  baaa  (craata/nodlfy  tha  T>racord) 

2.  Craata  tha  A^racord  if  nacaaaary 

3.  Dataraina  ahathar  participant  or  non-participant  in  tha 
VO-TBCH  atudy 

INPUT;  1.  VO-TECH-DATA-TAPE 

2.  ACES-STUDY-HASTBR-FILE 

OUTPUT;  1.  ACES-STUDY-IO^TER-FILE 

2.  STATUS-REPORT 

3.  ERROR-REPORT 

TABULATIONS  FOR  STATUS-REPORT; 

A.  Record  counts 

1.  Nunbar  of  records  on  VO-TECH-DATA-TAPE 

2.  Number  of  A-records  written  (rewritten) 

3.  Nuiii)er  of  T-records  written  (rewritten) 

B.  Study  counts 

1.  Number  of  participants  in  VO-TECH 

2.  Number  of  non-participants  in  VO- TECH 

C.  Error  counts 

1.  Number  of  records  with  some  type  of  error 


VO-TBCH  (2) 


B-S 


pmCMBMICt  InltUllMtlon 

For  oach  rocotd  on  tho  VO-TKl-DATA-TAPE 

1.  V«114nt«  that  tho  SW/ASH  la  nunatlc 

2.  Rattlava/lnltlallta  tha  A-racord 

3.  Ratrtava/lnltlaliia  tha  T-tacotd 

4.  Hova  tha  approptlata  data  to  tha  T-racord  via  a 
MOVE  COUtESFONOING  coMand 

3.  Sat  tha  appvoprlata  flaga  and  dataa 

6.  Rawrlta/wrlta  tha  A-  and  T-racorda 

7,  p«rfom  chacka  on  tha  data.  If  any  check  fails  • 
print  tha  record  and  underline  tha  invalid  data. 

Dpdata  record  000  00  0000  Z 
Print  STATUS-REPORT 
Close  files. 


PfiSSSSMi 

PURPOSES; 

IHPOT; 

OUTPUT; 

TABULATIONS 


CONTENTS  OF 


B-6 

MILPERCEM  (MXLPBRCEM.  CODE) 

1.  IncorpotAtA  NILPERCSH  data  into  tha  data  baaa  (nodlfy  tha 
A^racord) 

2.  Gat  a  praliainary  Idaa  of  tha  dagrac  cf  dlacrapancy  batvaan 
this  aourca  and  aarllar  aourcaa 

1.  MUPERCCM^OATA-TAPS  (Saquantially  ordarad  by  SSH) 

2.  ACES-STUDY'MASTER-FILE 

1.  ACES-STUDY-MASTER-FILS 

2.  STATUS-REPORT 

3.  DISCREPANCY-REPORT 

4.  MISSING-MILPERCEN-DATA-REPORT 

FOR  STATUS  REPORT; 

A.  Racord  counts 

1.  Nunibar  of  racords  on  MILPERCEN-DATA-TAPE 

2.  Number  of  A-records  rewritten 

B.  Error  counts 

1.  Number  of  A-records  with  no  NILPERCEN  match 

2.  Number  of  MILPERCEN  records  rejected  because  of  no  match 


DISCREPANCY  REPORT; 


1.  For  selected  variables,  degree  of  difference  between  various 
sources:  frequency  of  difference 


PROCESSIMC;  Initialitatlon 


MltPBlCBN  (2) 


Sequentially  pese  throu|h  the  ACES*STUDY«KhSTBR-FILE  end  for 
each  A* record, 

1.  Paaa  through  the  MILPBRCEN'DRTA-TAPE  until  ite  SSH  ia 
not  leaa  than  the  SSN  on  the  A*record 

2.  If  natch. 

Move  appropriate  data  to  the  A«record  via  MOVE  COB&ESPOMDIMG 
Set  its  appropriate  flags  and  dates 
Rewrite  the  A-record 
Calculate  discropancles 

Else 

Write  MISSIHG-MILPERCEM-DATA^REPORT 
Process  any  remaining  records  on  MILPERCEM>DATA-TAPE 
Update  record  000  00  0000  Z 
Print  STATUS-REPORT 
Close  files. 


PROCEDURE; 

PURPOSE; 

INPUT; 

OUTPUT; 

TABULATIONS 


PROCESSING; 


B-8 


SSNLIST  (SSN.  cor.:) 

Generate  a  list  of  SSN/ASN's  from  the  data  base 

1.  ACES-STUDY-MASTER-FILE 

2.  Control-cards  to  control  list  generation 

1.  SSN-LIST-TAPE 

2.  STATUS-REPORT 

FOR  STATUS-REPORT; 

A.  Number  of  SSN's  written 


Initialization 

Sequentially  retrieve  A-records  and  for  each  A-record, 
Move  data  to  output  file  via  MOVE  CORRESPONDING 
Write  the  output  record 
Pring  STATUS-REPORT 
Close  files. 


B-9 


PROCEDURE; 

DMDC  (DMDC.  CODE) 

PURPOSES: 

1. 

Incorporate  DMDC  data  Intc-  the  data 

the  A,  V-record) 

base 

(create/modify 

2. 

Determine  participant  status  in  the 

VEAP 

program 

INPUT: 

1. 

DMDC-DATA-TAPE 

2. 

ACES-STUDY-MASTER-FILE 

OUTPUT: 

1. 

ACES-STUDY-MASTER-FILE 

2. 

STATUS-REPORT 

3. 

ERROR-LIST 

TABULATIONS  FOR  STATUS  REPORT; 

A.  Record  counts 

1.  Number  of  records  on  DMDC-DATA-TAPE 

2.  Number  of  A-records  written  (rewritten) 

3.  Number  of  V-records  written  (rewritten) 

B.  Study  counts  for  VEAP  (if  available)* 

1.  Number  of  participants 

2.  Number  of  non-participants 


PROCESSING;  Initialization 

For  each  record  on  the  DMDC- DATA- TAPE 

1.  Retrieve/Initialize  the  A-record 

2.  Retrieve /initialize  the  V-record 

3.  Determine  the  VEAP-STATUS* 

If  the  ACCESSION-DATE  is  in  June,  1977. 

Set  the  VEAP-STATUS  flag 

Else 

The  person  is  not  part  of  the  VEAP  study  and 
will  require  no  V-record 


B-10 


J 


4.  Move  the  appropriate  data  to  the  A-record  via  a 
MOVE  CCERESPOMDING  command 

5.  If  V-record,  move  the  appropriate  data  to  the  V-record 
via  a  MOVE  CORRESPOHDIMG  connand 

6.  Set  appropriate  dates  and  flags 

7.  Rewrite/write  the  A-record 

8.  If  V-record,  rewrite/write  V-record 
Update  record  000  00  0000  Z 

Pring  STATUS-REPORT 
Close  files. 

*VEAP  study  was  cancelled,  consequently  all  references  to  VEAP  updating 
uere  not  implemented. 


B-11 


PROCEDURE! 

PURPOSE; 

INPUT; 

OUTPUT! 

TABULATIONS 


PROCESSING ! 


TSC  (Not  Inplemkncod) 

1.  Incorporate  the  TSC  data  on  ‘:est  scores  Into  the  data 
base  (modify  the  A-record) 

1.  TSC-DATA-TAPE 

2.  ACES-STUDY-MASTER-FILE 

1.  ACES-STUDY-MASTER-FILE 

2.  STATUS-REPORT 

3 .  MISS ING-TSC-DATA-REPORT 

FOR  STATUS  REPORT; 

A.  Record  count 

1.  Number  of  records  on  TSC-DATA-TAPC 

2.  Number  of  A-records  updated 

B.  Error  counts 

1.  Number  of  A-records  with  no  TSC  match 

2.  Number  of  TSC  records  rejected  because  of  no  match 


Initialization 

Sequentially  pass  through  the  ACES-STUDY-MASTER-FILE  and  for 
each  A-record, 

1.  Pass  through  the  TSC-DATA-TAPE  until  its  SSN  is  not  less 
than  the  SSN  on  the  A-record 

2.  If  match. 

Move  appro»'rlate  data  to  the  A-record  via  MOVE  CORRESPONDING 
Set  appropriate  flags  and  dates 
Rewrite  the  A-record 


B-12 


TSC  (2) 


Else, 

Writ*  MISSlNG-TSC-Dm-REPORT 
Process  any  remaining  records  on  TSC-DATA-TAPE 
Print  STATUS-REPORT 
Close  files. 


i 


2.  Opd«t<i  th«  A-r«cord 


I 

i 

INPUT:  1.  VEAP-DATA-TAPE 

2.  ACES-STUDt-MASTER~FILE 

OUTPUT;  1.  ACES-STUDY-MASTER-FIU 

2.  STATUS-REPORT 

tabitlaTIQNS  for  status  REPORT: 

a.  Record  counts  ; 

1,  Number  of  records  on  VEAP-DATA-TAPE  j 

2,  Number  of  V-records  rewritten  | 

3,  Nusdbcr  of  A-records  rewritten  | 

1 

PROCESSING;  Initiallsetlon  i 

For  each  record  on  the  VEAPrDATA-TAPE  j 

1.  Validate  that  the  SSN/ASN  is  numeric  J 

2.  Retrieve  the  A-record 

1 

3.  Retrieve  the  V-record  ; 

4.  Determine  the  VEAP  status 

5.  Move  the  appropriate  data  to  the  V-record  via  a  i 

MOVE  CORRESPONDING  conmand 

6.  Set  the  appropriate  flags  and  dates 

7.  If  record  accepted,  rewrite  the  A-  and  V-records 
Update  record  000  00  0000  Z 
Print  STATUS-REPORT 

Close  files.  j 


PROCEDOMi 


SPSS  ACCESS  (ACESS.  CODE) 


PURPOSES ;  1.  To  croat*  a  flla  aaally  raad  by  SPSS  concaining  prograa 

apaciflc  data 

2.  To  craata  a  backup  copy  on  tapa  of  tha  ACES-STUDY^MASTER-FILE 

INPUT;  1.  ACES-STUDY-MASTER-FILE 

2 .  Control  carda 

OUTPUT;  1.  SPSS-DATA-TAPE 

2.  STATUS-REPORT 

TABULATIONS  FOR  STATUS-REPORTS; 

A.  Count  of  records  written 

B.  Breakdown  by  type 

PROCESSING;  Initialization 

Accept  the  control  card  parameters 
Necessary  options:  1.  All  A-records 

2.  All  records 

3.  ESL  sample  (A  &  B  records) 

4.  LIT  sample  (A  &  B  records) 

5.  VOTECH  sample  (A  &  T  records) 
Sequentially  pass  through  the  file  and  for  each  A-record 

If  the  soldier  satisfies  the  options, 
write  the  A-record 
write  the  other  records  (if  any) 

Print  STATUS-REPORT 
Close  files. 
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SPSS 

NAME 

SSMD 

RECORDB 

DATBRC 

DATBRM 

SAME 

SAMEII 

SEXB 

RACEB 

g 

_ 1 

ESLESR 

CIVEDfl 

MILCOM 

1 

5^ 

AIAVOC 

AIBVOC 

AIIAVOC 

AIARD 

AIBRD 

AIIARD 

AIASP 

AIBSP 

dSVIIV 

AIAAC 

AIBAC 

FIELD  HAME 

Social  Security  Nuaber 

Record  Type 

Date  Record  Created 

Date  Record  Laat  Modified 

Laat  Naae 

First  Initial 

M 

Race 

Primary  Language 

U 

Education  Level 

c 

1 

t 

u 

& 

to 

id 

•H 

X 

Mental  Category 

ms 

Select  ABLE  Score 

Vocabulary  Grade  ABLE  lA 

Vocabulary  Grade  ABLE  IB 

Vocabulary  Grade  ABLE  lA 

Reading  Grade  ABLE  lA 

Reading  Grade  ABLE  IB 

Reading  Grade  ABLE  IIA 

Spelling  Grade  ABLE  lA 

Spelling  Grade  ABLE  IB 

Spelling  Grade  ABLE  IIA 

Arlthiaeclc  Conputation  lA 

Arithmetic  Conputation  IB 

^  field" 

LOCATION 

1-9 

o 

11-16 

17-22 

23-34 

m 

r» 

00 

o 

sr 

43-45 

US- 1*7 

48-49 

50-51 

52-53 

54-55 

56-57 

58-59 

60-61 

62-63 

>o 

1 

VO 

66-67 

68-69 

Participation-Automotive  VTPAFTA 
Participation-Diesel  VTPAHTD 
Participation-Welding  VTPAHTW 
Participation-Electronics  VFPARFE 
Participation-Construction  VTPABTC 


